(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    466986,      11285]
NotebookOptionsPosition[    458863,      11024]
NotebookOutlinePosition[    459261,      11041]
CellTagsIndexPosition[    459218,      11038]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["Nagyprojekt",
 FontFamily->"Gill Sans MT",
 FontSize->36,
 FontWeight->"Bold",
 FontSlant->"Italic",
 FontColor->RGBColor[1., 0., 0.]]], "Section",
 CellChangeTimes->{{3.668449512224843*^9, 3.668449519945014*^9}, {
  3.671195688544829*^9, 3.6711956915293636`*^9}},
 TextAlignment->Center,
 FontColor->RGBColor[0, 0, 1],
 Background->RGBColor[1, 1, 0]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["K\[EAcute]sz\[IAcute]tsen oktat\[OAcute]anyagot, ami a skal\
\[AAcute]ris differenci\[AAcute]legyenletek megold\[AAcute]sait \
k\[ODoubleDot]zel\[IAcute]ti az Euler-f\[EAcute]le m\[OAcute]dszerrel az el\
\[ODoubleAcute]remutat\[OAcute] v\[EAcute]ges differenci\[AAcute]kkal. Vizsg\
\[AAcute]lja a k\[ODoubleDot]zel\[IAcute]t\[EAcute]s hib\[AAcute]j\[AAcute]t. \
Adjon p\[EAcute]ld\[AAcute]kat.",
  FontFamily->"Gill Sans MT",
  FontColor->RGBColor[1., 0.5019607843137255, 0.]],
 "\n"
}], "Section",
 CellChangeTimes->{{3.6684495251296735`*^9, 3.6684496031144567`*^9}, {
   3.6684501010310354`*^9, 3.668450103406353*^9}, {3.6684504668030972`*^9, 
   3.6684504737177305`*^9}, 3.671195780991528*^9, {3.6711960202469134`*^9, 
   3.6711960206181583`*^9}, 3.6711961435056005`*^9, {3.671687049957803*^9, 
   3.6716870526225843`*^9}},
 TextAlignment->Center],

Cell["\<\

K\[EAcute]sz\[IAcute]tette: 
1. csoport
Alm\[AAcute]si Csilla \[EAcute]s Pavlovity Violetta
2016.\
\>", "Text",
 CellChangeTimes->{{3.6684517506469984`*^9, 3.6684517696885333`*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Bevezet\[ODoubleAcute]",
 FontFamily->"Gill Sans MT",
 FontColor->RGBColor[1., 0.5019607843137255, 0.]]], "Subsection",
 CellChangeTimes->{{3.6711958187527466`*^9, 3.671195823773102*^9}}],

Cell["\<\
T\[EAcute]m\[AAcute]nk az Euler-m\[OAcute]dszer haszn\[AAcute]lata a skal\
\[AAcute]ris differenci\[AAcute]legyenletek megold\[AAcute]sain\[AAcute]l. R\
\[ODoubleDot]viden \[IAcute]runk a skal\[AAcute]ris line\[AAcute]ris \
differenci\[AAcute]legyenletekr\[ODoubleAcute]l \[EAcute]s az \
Euler-t\[EAcute]telr\[ODoubleAcute]l, majd \
\[AAcute]tt\[EAcute]r\[UDoubleDot]nk a t\[ODoubleDot]r\[ODoubleDot]ttvonallal \
val\[OAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]sre \[EAcute]s ennek a hib\
\[AAcute]j\[AAcute]nak a vizsg\[AAcute]lat\[AAcute]ra. \
P\[EAcute]ld\[AAcute]inkban szeml\[EAcute]ltetj\[UDoubleDot]k ezeket.\
\>", "Text",
 CellChangeTimes->{{3.6711961036531177`*^9, 3.6711962965852995`*^9}, {
  3.6717153794632893`*^9, 3.6717153846037197`*^9}},
 TextJustification->1.]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Skal\[AAcute]ris line\[AAcute]ris \
differenci\[AAcute]legyenletek",
 FontFamily->"Gill Sans MT",
 FontColor->RGBColor[1., 0.5019607843137255, 0.]]], "Subsection",
 CellChangeTimes->{{3.6711958789173203`*^9, 3.6711959106868205`*^9}}],

Cell[TextData[{
 StyleBox["Defin\[IAcute]ci\[OAcute]:",
  FontFamily->"Georgia",
  FontWeight->"Bold"],
 " Differenci\[AAcute]legyenleten egy olyan egyenletet  \[EAcute]rt\
\[UDoubleDot]nk, amelyben a keresett ismeretlen egy \
f\[UDoubleDot]ggv\[EAcute]ny, \[EAcute]s a f\[UDoubleDot]ggv\[EAcute]ny \
valamelyik deriv\[AAcute]ltja is szerepel az egyenletben."
}], "Text",
 CellChangeTimes->{
  3.6711963630570736`*^9, {3.6711964451183057`*^9, 3.671196467821655*^9}, {
   3.67119650660133*^9, 3.6711965899237595`*^9}, {3.671196796552467*^9, 
   3.6711968486793776`*^9}, {3.6711968959500475`*^9, 3.671196896846653*^9}},
 TextJustification->1.],

Cell[TextData[{
 "Ha a keresett f\[UDoubleDot]ggv\[EAcute]ny egyv\[AAcute]ltoz\[OAcute]s, \
akkor k\[ODoubleDot]z\[ODoubleDot]ns\[EAcute]ges \
differenci\[AAcute]legyenletr\[OTilde]lbesz\[EAcute]l\[UDoubleDot]nk, ha \
pedig t\[ODoubleDot]bbv\[AAcute]ltoz\[OAcute]s, \[EAcute]s a keresett f\
\[UDoubleDot]ggv\[EAcute]ny egy vagy t\[ODoubleDot]bb parci\[AAcute]lis deriv\
\[AAcute]ltja is szerepel az egyenletben, akkor az \
egyenletetparci\[AAcute]lis differenci\[AAcute]legyenletnek h\[IAcute]vjuk. \
Egy k\[ODoubleDot]z\[ODoubleDot]ns\[EAcute]ges differenci\[AAcute]legyenletet \
n-edrend\[UHat] differenci\[AAcute]legyenletnek nevezz\[UDoubleDot]k, ha a \
keresett f\[UDoubleDot]ggv\[EAcute]ny egyenletben szerepl\[OTilde] \
legmagasabb deriv\[AAcute]ltja az n-edik deriv\[AAcute]lt. Egy \
n-edrend\[UHat] k\[ODoubleDot]z\[ODoubleDot]ns\[EAcute]ges \
differenci\[AAcute]legyenlet \[AAcute]ltal\[AAcute]nos alakja teh\[AAcute]t \n\
                                 \n                                           \
                       ",
 StyleBox[" g ( x , y , y\[Prime] , \[Ellipsis] , y ( n \[Minus] 1 ) ,  y ( n \
) ) = 0. ",
  FontSlant->"Italic"],
 "                          (1)\n\nItt y jel\[ODoubleDot]li a keresett f\
\[UDoubleDot]ggv\[EAcute]nyt, amely x f\[UDoubleDot]ggv\[EAcute]nye, azaz \
y=y(x). A differenci\[AAcute]legyenletek elm\[EAcute]let\[EAcute]ben \
\[EAcute]s az alkalmaz\[AAcute]sokban is szok\[AAcute]sos, hogy a keresett f\
\[UDoubleDot]ggv\[EAcute]ny v\[AAcute]ltoz\[OAcute]j\[AAcute]t nem \
\[IAcute]rjuk ki explicit m\[OAcute]don az egyenletben. Mi is \[AAcute]ltal\
\[AAcute]ban ezt a konvenci\[OAcute]t haszn\[AAcute]ljuk. A (1) egyenletet \
\[UAcute]gy \[IAcute]rtuk fel, hogy minden tagot egy oldalra rendezve a \
baloldalon a f\[UDoubleDot]ggetlen v\[AAcute]ltoz\[OAcute], x, valamint az \
ismeretlen y f\[UDoubleDot]ggv\[EAcute]ny, valamint annak \
deriv\[AAcute]ltjai, az n-edik deriv\[AAcute]ltig bez\[AAcute]r\[OAcute]lag \
tetsz\[OTilde]leges kifejez\[EAcute]se \[AAcute]ll."
}], "Text",
 CellChangeTimes->{{3.671196901738908*^9, 3.6711969702625875`*^9}, {
  3.671526263027006*^9, 3.6715262643178663`*^9}, {3.6716154593881493`*^9, 
  3.6716155120884953`*^9}},
 TextJustification->1.],

Cell[CellGroupData[{

Cell["Els\[ODoubleAcute]rend\[UDoubleAcute]", "Subsubsection",
 CellChangeTimes->{{3.6711967596498814`*^9, 3.6711967634950757`*^9}}],

Cell[TextData[{
 StyleBox["Defin\[IAcute]ci\[OAcute]:",
  FontFamily->"Georgia",
  FontWeight->"Bold"],
 " Legyen I\[Subset] \[DoubleStruckCapitalR] egy ny\[IAcute]lt intervallum. \
Az      a ( x ) y\[CloseCurlyQuote] + b ( x ) y = g ( x ),  x \[Element] I    \
  alak\[UAcute] egyenleteket els\[ODoubleAcute]rend\[UDoubleAcute] skal\
\[AAcute]ris line\[AAcute]ris differenci\[AAcute]legyenleteknek \
h\[IAcute]vjuk."
}], "Text",
 CellChangeTimes->{{3.6711968014167166`*^9, 3.6711968090533648`*^9}, {
  3.6716155553914394`*^9, 3.671615569453842*^9}},
 TextJustification->1.],

Cell[TextData[{
 "Abban az esetben, amikor",
 StyleBox[" g azonosan nulla, az egyenletet homog\[EAcute]n, ellenkez\
\[ODoubleAcute] esetben pedig inhomog\[EAcute]n egyenletnek nevezz\
\[UDoubleDot]k. Az els\[ODoubleAcute]rend\[UDoubleAcute] homog\[EAcute]n line\
\[AAcute]ris egyenletek \[AAcute]ltal\[AAcute]nos alakja teh\[AAcute]t: \n    \
                                                                           ",
  FontFamily->"Calibri CE"],
 "a ( x ) y\[CloseCurlyQuote] + b ( x ) y = 0 ,  x \[Element] I"
}], "Text",
 CellChangeTimes->{{3.6711970203462667`*^9, 3.6711971104414086`*^9}, {
  3.671197176446699*^9, 3.67119718348593*^9}, {3.6711974382224693`*^9, 
  3.671197455407175*^9}, {3.67152627108339*^9, 3.6715262849046235`*^9}, {
  3.6716155790032268`*^9, 3.6716155980159287`*^9}, {3.6717153985690536`*^9, 
  3.671715404194811*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["M\[AAcute]sodrend\[UDoubleAcute]", "Subsubsection",
 CellChangeTimes->{{3.671196769390009*^9, 3.6711967733346453`*^9}}],

Cell[TextData[{
 StyleBox["Defin\[IAcute]ci\[OAcute]:",
  FontFamily->"Georgia",
  FontWeight->"Bold"],
 " Legyen I \[Subset] \[DoubleStruckCapitalR] egy ny\[IAcute]lt intervallum, \
p, q, f : I \[RightArrow] \[DoubleStruckCapitalR]. Az explicit \
m\[AAcute]sodrend\[UDoubleAcute] inhomog\[EAcute]n line\[AAcute]ris skal\
\[AAcute]ris differenci\[AAcute]legyenlet \[AAcute]ltal\[AAcute]nos alakja:   \
\n                                                            \n              \
                                                    ",
 StyleBox["  y\[CloseCurlyDoubleQuote] + p ( x ) y\[CloseCurlyQuote] + q ( x \
) y = f ( x ) ,  x \[Element] I. ",
  FontSlant->"Italic"],
 "\n                                                              \nA \
megfelel\[ODoubleAcute] m\[AAcute]sodrend\[UDoubleAcute] homog\[EAcute]n line\
\[AAcute]ris differenci\[AAcute]legyenlet \[AAcute]ltal\[AAcute]nos alakja   ",
 StyleBox["y\[CloseCurlyDoubleQuote] + p ( x ) y\[CloseCurlyQuote] + q ( x ) \
y = 0 ,  x \[Element] I. ",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.6711968167555127`*^9, 3.671196822437318*^9}, {
  3.671196953488286*^9, 3.671196955527738*^9}, {3.6715262900220428`*^9, 
  3.671526296259221*^9}, {3.6716156225783443`*^9, 3.6716156503032656`*^9}},
 TextJustification->1.]
}, Closed]],

Cell[CellGroupData[{

Cell["n-edrend\[UDoubleAcute]", "Subsubsection",
 CellChangeTimes->{{3.671196780423396*^9, 3.6711967844323673`*^9}}],

Cell[TextData[{
 StyleBox["Defin\[IAcute]ci\[OAcute]:",
  FontFamily->"Georgia",
  FontWeight->"Bold"],
 " Legyen I \[Subset] \[DoubleStruckCapitalR] egy ny\[IAcute]lt intervallum, \
p, q, f : I \[RightArrow] \[DoubleStruckCapitalR]. Az explicit n-edrend\
\[UDoubleAcute], skal\[AAcute]ris line\[AAcute]ris \
differenci\[AAcute]legyenlet \[AAcute]ltal\[AAcute]nos alakja:   \n           \
                                  \n                                          \
                          ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["y", 
    RowBox[{"(", "n", ")"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"p", " ", 
    RowBox[{"(", " ", "x", " ", ")"}], "  ", 
    SuperscriptBox["y", 
     RowBox[{"(", 
      RowBox[{"n", "-", "1"}], ")"}]]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + ... + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"q", " ", 
    RowBox[{"(", " ", "x", " ", ")"}], " ", "y"}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["  = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"f", " ", 
    RowBox[{"(", " ", "x", " ", ")"}], "   "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[",  x \[Element] I. ",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.6711968308812194`*^9, 3.6711968363728867`*^9}, {
  3.671196960406999*^9, 3.6711969635831223`*^9}, {3.6715263025544243`*^9, 
  3.6715263067011967`*^9}, {3.6716157617777767`*^9, 3.671615783616373*^9}}],

Cell[TextData[{
 "A (1) egyenletet implicit n-edrend\[UDoubleAcute] differenci\[AAcute]l \
egyenletnek h\[IAcute]vjuk. Ha az egyenletb\[ODoubleAcute]l a benne szerepl\
\[ODoubleAcute] legmagasabb deriv\[AAcute]ltat ki lehet fejezni, akkor egy \n\
\n                                                                   ",
 StyleBox[" y ( n ) = f (x , y , y\[Prime] , \[Ellipsis] , y ( n\[Minus]1 ) ) \
 ",
  FontSlant->"Italic"],
 "                         (2)\n                                              \
                   \nalak\[UAcute] egyenletet kapunk, amely az explicit \
n-edrend\[UDoubleAcute] differenci\[AAcute]legyenlet \
\[AAcute]ltal\[AAcute]nos alakja. A tov\[AAcute]bbiakban szinte mindig \
explicit, illetve explicit alakra \[AAcute]talak\[IAcute]that\[OAcute] \
egyenletekkel fogunk foglalkozni. Egy (2) explicit \
differenci\[AAcute]legyenlet megold\[AAcute]sa egy olyan f\[UDoubleDot]ggv\
\[EAcute]ny, amely egy I\[Subset] R intervallumon van \[EAcute]rtelmezve, \
\[EAcute]s amelyet behelyettes\[IAcute]tve az adott egyenletbe teljes\
\[UDoubleDot]l az egyenlet minden x\[Element] I-re. Megold\[AAcute]s teh\
\[AAcute]t defin\[IAcute]ci\[OAcute] szerint mindig intervallumon van \
\[EAcute]rtelmezve.\n"
}], "Text",
 CellChangeTimes->{{3.671197358898277*^9, 3.671197418989147*^9}, {
  3.6715263102945957`*^9, 3.671526311783597*^9}, {3.671615733107615*^9, 
  3.671615739316766*^9}, {3.671615836462694*^9, 3.671615885092558*^9}},
 TextJustification->1.]
}, Closed]],

Cell[CellGroupData[{

Cell["Numerikus megold\[AAcute]sok", "Subsubsection",
 CellChangeTimes->{{3.671197760927128*^9, 3.6711977649347987`*^9}}],

Cell["\<\
A differenci\[AAcute]legyenletek t\[ODoubleDot]bbs\[EAcute]ge nem integr\
\[AAcute]lhat\[OAcute] t\[IAcute]pus\[UAcute], vagyis nem \[IAcute]rhatjuk \
fel a megold\[AAcute]st z\[AAcute]rt alakban. A kvalitat\[IAcute]v elm\
\[EAcute]let arra szolg\[AAcute]l, hogy a megold\[AAcute]sok ismerete n\
\[EAcute]lk\[UDoubleDot]l bizony\[IAcute]thassuk a megold\[AAcute]sok \
bizonyos tulajdons\[AAcute]gait: korl\[AAcute]toss\[AAcute]g, stabilit\
\[AAcute]s, periodicit\[AAcute]s, stb. Bizonyos esetekben viszont ez nem \
elegend\[ODoubleAcute], a gyakorlati \[EAcute]letben sokkal \
t\[ODoubleDot]bbet \[EAcute]r a megold\[AAcute]s ak\[AAcute]r \
k\[ODoubleDot]zel\[IAcute]t\[ODoubleAcute] ismerete, mint a megold\[AAcute]s \
felsorolt tulajdons\[AAcute]gai k\[ODoubleDot]z\[UDoubleDot]l \
b\[AAcute]rmelyik. Erre szolg\[AAcute]l a differenci\[AAcute]legyenletek \
numerikus megold\[AAcute]sa, amelyek k\[ODoubleDot]z\[UDoubleDot]l az Euler-t\
\[EAcute]tel a leggyakrabban haszn\[AAcute]lt.\
\>", "Text",
 CellChangeTimes->{{3.671197771051895*^9, 3.671197987096532*^9}},
 TextJustification->1.]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Euler-t\[EAcute]tel \[EAcute]s bizony\[IAcute]t\
\[AAcute]sa",
 FontFamily->"Gill Sans MT",
 FontColor->RGBColor[1., 0.5019607843137255, 0.]]], "Subsection",
 CellChangeTimes->{{3.6711959225534897`*^9, 3.671195930463778*^9}}],

Cell[CellGroupData[{

Cell["T\[EAcute]tel", "Subsubsection",
 CellChangeTimes->{{3.6711980428892965`*^9, 3.6711980438959665`*^9}}],

Cell[TextData[{
 "Tekints\[UDoubleDot]k a \n\n(1)    ",
 StyleBox["x\[CloseCurlyQuote] = f ( t , x )\n        x ( \[Tau] ) = \[Xi]\n  \
       \n        T = { ( t , x ) : \[VerticalSeparator] t - \[Tau] \
\[VerticalSeparator] \[LessEqual] a , \[VerticalSeparator] x - \[Xi] \
\[VerticalSeparator] \[LessEqual] b } ",
  FontSlant->"Italic"],
 "      (0 < a, b = konstans)\n         \nkezdeti\[EAcute]rt\[EAcute]k-probl\
\[EAcute]m\[AAcute]t, ahol f : T\[RightArrow] \[DoubleStruckCapitalR] \
folytonos. Legyen \[Epsilon] > 0 r\[ODoubleDot]gz\[IAcute]tett.\n\nTegy\
\[UDoubleDot]k fel, hogy f folytonos T-n. Ekkor minden \[Epsilon] > 0-hoz l\
\[EAcute]tezik az (1) egyenlet \[Epsilon] -k\[ODoubleDot]zel\[IAcute]t\
\[ODoubleAcute] megold\[AAcute]sa [ \[Tau]-h, \[Tau]+h ]-n, ahol\n\n          \
                                    ",
 StyleBox[" h = min { a, ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["b", "M"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" },    M = max { \[VerticalSeparator] f ( t , x ) \
\[VerticalSeparator] : ( t , x ) \[Element] T }   ",
  FontSlant->"Italic"],
 "   "
}], "Text",
 CellChangeTimes->{{3.6711975457389126`*^9, 3.6711975686491446`*^9}, 
   3.6711976225703535`*^9, {3.6711980140017405`*^9, 3.671198048645873*^9}, {
   3.671615946914879*^9, 3.6716160694051456`*^9}},
 TextJustification->1.]
}, Closed]],

Cell[CellGroupData[{

Cell["Bizony\[IAcute]t\[AAcute]s", "Subsubsection",
 CellChangeTimes->{{3.671198053785314*^9, 3.671198055756633*^9}}],

Cell[TextData[{
 "A [ \[Tau] , \[Tau] + h ]-ra bizony\[IAcute]tjuk, ugyan\[UAcute]gy megy a [ \
\[Tau] - h , \[Tau] ]-ra is. Legyen ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "i"], TraditionalForm]]],
 " = \[Tau] + i \[Gamma], ahol \[Gamma] > 0 egy k\[EAcute]s\[ODoubleAcute]bb \
meghat\[AAcute]rozand\[OAcute] l\[EAcute]p\[EAcute]sk\[ODoubleDot]z. \nEkkor \
\[Tau] = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]]],
 " < ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "1"], TraditionalForm]]],
 " < ... < ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "n"], TraditionalForm]]],
 " = \[Tau] + h egy beoszt\[AAcute]s \[EAcute]s\n\n",
 StyleBox["\[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) = \[Xi]\n\[Phi] ( t ) = \[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) + f ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" , \[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ) ( t - ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" )                           ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" < t \[LessEqual] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ,\n\[Phi] ( t ) = \[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) + f ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" , \[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ) ( t - ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" )                            (",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["t", "1"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" < t \[LessEqual] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "2"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ,\n       \[VerticalEllipsis]\n\[Phi] ( t ) = \[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "-", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) + f ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "-", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" , \[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "-", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ) ( t - ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "-", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" )               ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "-", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" < t \[LessEqual] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) , ( k = 1 , ... , n ) .",
  FontSlant->"Italic"],
 "\n\nHa\n\n",
 StyleBox["t\[CloseCurlyQuote] , t\[CloseCurlyQuote]\[CloseCurlyQuote] \
\[Element]  [ \[Tau] , \[Tau] + h ] = [ ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" , ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ] : ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", " "}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" < t\[CloseCurlyQuote] \[LessEqual] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[", ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "l"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" < ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"t", "''"}], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" \[LessEqual] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"l", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" , k \[LessEqual] l , t\[CloseCurlyQuote] < t\[CloseCurlyQuote]\
\[CloseCurlyQuote] ,",
  FontSlant->"Italic"],
 "\n\nakkor\n\n",
 StyleBox["\[VerticalSeparator] \[Phi] ( \
t\[CloseCurlyQuote]\[CloseCurlyQuote] ) - \[Phi] ( t\[CloseCurlyQuote] ) \
\[VerticalSeparator] = \[VerticalSeparator] \[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) - \[Phi] ( t\[CloseCurlyQuote] ) + \[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "+", "2"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) - \[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) + ... + \[Phi] ( t\[CloseCurlyQuote]\[CloseCurlyQuote] ) - \
\[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "l"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) \[VerticalSeparator]\n                           \[LessEqual] \
\[VerticalSeparator] \[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) - \[Phi] ( t\[CloseCurlyQuote] ) \[VerticalSeparator] + ... + \
\[VerticalSeparator] \[Phi] ( t\[CloseCurlyQuote]\[CloseCurlyQuote] ) - \
\[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "l"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) \[VerticalSeparator]\n                           \[LessEqual] M \
( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" - t\[CloseCurlyQuote] + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "+", "2"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" - ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + ... + t\[CloseCurlyQuote]\[CloseCurlyQuote] - ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "l"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) = M ( t\[CloseCurlyQuote]\[CloseCurlyQuote] - t\
\[CloseCurlyQuote] ) .",
  FontSlant->"Italic"],
 "\n                    \nEkkor \[Phi] : [",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["t", "0"], ",", " ", 
    SubscriptBox["t", "n"]}], TraditionalForm]]],
 "] \[RightArrow] \[DoubleStruckCapitalR] folytonos \[EAcute]s a fenti egyenl\
\[ODoubleAcute]tlens\[EAcute]get felhaszn\[AAcute]lva k\[ODoubleDot]nny\
\[UDoubleAcute] bel\[AAcute]tni, hogy ( t , \[Phi] ( t ) ) \[Element] T ( ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]]],
 " \[LessEqual] t \[LessEqual] ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "n"], TraditionalForm]]],
 " ) : tegy\[UDoubleDot]k fel, hogy t \[Element] (",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["t", "k"]}], TraditionalForm]]],
 " , ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "+", "1"}]], TraditionalForm]]],
 " ] , akkor \n                          \n                                   \
                ",
 StyleBox[" \[VerticalSeparator] \[Phi] ( t ) - \[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) \[VerticalSeparator] \[LessEqual] M ( t - ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) \[LessEqual] Mh \[LessEqual] b.",
  FontSlant->"Italic"],
 "\n\nTeljes\[UDoubleDot]l-e a  \[VerticalSeparator] \[Phi]\[CloseCurlyQuote] \
( t ) - f ( t , \[Phi] ( t ) ) \[VerticalSeparator] < \[Epsilon] \
felt\[EAcute]tel, ha ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "-", "1"}]], TraditionalForm]]],
 " < t < ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]]],
 " ?\n\nHa ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "-", "1"}]], TraditionalForm]]],
 " < t < ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]]],
 ", akkor \[Phi]\[CloseCurlyQuote] ( t ) = f ( ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "-", "1"}]], TraditionalForm]]],
 ", \[Phi] ( ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "-", "1"}]], TraditionalForm]]],
 " ) ), teh\[AAcute]t \[VerticalSeparator] f ( ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "-", "1"}]], TraditionalForm]]],
 ", \[Phi] ( ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "-", "1"}]], TraditionalForm]]],
 " ) ) - f ( t , \[Phi] ( t ) ) \[VerticalSeparator] < \[Epsilon] -nak kell \
teljes\[UDoubleDot]lnie. Mivel f folytonos T-n ( T korl\[AAcute]tos \
\[EAcute]s z\[AAcute]rt), ez\[EAcute]rt egyenletesen is folytonos, vagyis \
minden \[Epsilon] > 0 -ra l\[EAcute]tezik \[Delta] > 0, hogy \n\n             \
                                        ",
 StyleBox["( t\[CloseCurlyQuote] , x ) , ( t\[CloseCurlyQuote]\
\[CloseCurlyQuote] , y ) \[Element] T , \[VerticalSeparator] t\
\[CloseCurlyQuote] - t\[CloseCurlyQuote]\[CloseCurlyQuote] \
\[VerticalSeparator] < \[Delta] , \[VerticalSeparator] x - y \
\[VerticalSeparator] < \[Delta] \[DoubleRightArrow] \[VerticalSeparator] f ( \
t\[CloseCurlyQuote] , x ) - f ( t\[CloseCurlyQuote]\[CloseCurlyQuote] , y ) \
\[VerticalSeparator] < \[Epsilon].",
  FontSlant->"Italic"],
 "\n\nEkkor, ha \[VerticalSeparator] t\[CloseCurlyQuote] - \
t\[CloseCurlyQuote]\[CloseCurlyQuote] \[VerticalSeparator] < \[Gamma], akkor \
\[VerticalSeparator] \[Phi] ( t\[CloseCurlyQuote] ) - \[Phi] ( t\
\[CloseCurlyQuote]\[CloseCurlyQuote] ) \[VerticalSeparator] < M \[Gamma], \
\[IAcute]gy \[Gamma]-t \[Delta]-n\[AAcute]l \[EAcute]s \[Delta] / \
M-n\[EAcute]l kisebbnek v\[AAcute]lasztva kapjuk, hogy\n\n                    \
                               ",
 StyleBox["  \[VerticalSeparator] f ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "-", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[", \[Phi] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "-", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ) - f ( t , \[Phi] ( t ) ) \[VerticalSeparator] < \[Epsilon]",
  FontSlant->"Italic"],
 "\n\nteljes\[UDoubleDot]l, teh\[AAcute]t \[Phi] val\[OAcute]ban egy \
\[Epsilon]-k\[ODoubleDot]zel\[IAcute]t\[ODoubleAcute] megold\[AAcute]s."
}], "Text",
 CellChangeTimes->{{3.6711980813656335`*^9, 3.671198092182867*^9}, {
  3.6715263504149904`*^9, 3.671526378432122*^9}, {3.671616090403178*^9, 
  3.671616705394111*^9}, {3.6716167519822493`*^9, 3.6716167659615974`*^9}},
 TextJustification->1.]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["T\[ODoubleDot]r\[ODoubleDot]ttvonal",
 FontFamily->"Gill Sans MT",
 FontColor->RGBColor[1., 0.5019607843137255, 0.]]], "Subsection",
 CellChangeTimes->{{3.671195987675284*^9, 3.671195995361422*^9}, {
  3.6715264061776667`*^9, 3.6715264088534546`*^9}}],

Cell[CellGroupData[{

Cell["Euler-f\[EAcute]le t\[ODoubleDot]r\[ODoubleDot]ttvonal", "Subsubsection",
 CellChangeTimes->{{3.6715264209145155`*^9, 3.67152643574047*^9}}],

Cell[TextData[{
 "Az Euler m\[OAcute]dszer l\[EAcute]nyege, hogy az elm\[EAcute]leti g\
\[ODoubleDot]rb\[EAcute]t -pontr\[OAcute]l pontra haladva- line\[AAcute]ris \
szakaszokkal k\[ODoubleDot]zel\[IAcute]tj\[UDoubleDot]k meg \[EAcute]s eredm\
\[EAcute]ny\[UDoubleDot]l egy ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["P", "1"], TraditionalForm]]],
 Cell[BoxData[
  FormBox[
   RowBox[{",", " ", 
    SubscriptBox["P", "2"], ",", " ", "...", ",", " ", 
    SubscriptBox["P", "n"]}], TraditionalForm]]],
 " t\[ODoubleDot]rtvonalat kapunk."
}], "Text",
 CellChangeTimes->{{3.6711992765730596`*^9, 3.671199435901437*^9}},
 TextJustification->1.],

Cell[TextData[{
 "Legyen ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]]],
 " = \[Tau] + k\[Gamma]  ( k = 0 , 1 , ... , n ) , \[EAcute]s ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "k"], TraditionalForm]]],
 " -val k\[ODoubleDot]zel\[IAcute]tj\[UDoubleDot]k az x ( ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]]],
 " ) -t, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"x", "'"}], "k"], TraditionalForm]]],
 " = f ( ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]]],
 " , ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "k"], TraditionalForm]]],
 " ) -val az x\[CloseCurlyQuote] ( ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]]],
 " )-t.\n\nAz Euler t\[EAcute]telben szerepl\[ODoubleAcute] m\[OAcute]dszert \
alkalmazzuk. ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 "= \[Xi] adott, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 "\[CloseCurlyQuote]= f ( \[Tau] , \[Xi] ). Az Euler-l\[EAcute]p\[EAcute]sek \
rendre a k\[ODoubleDot]vetkez\[ODoubleAcute]k:\n\n",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    RowBox[{"1", " "}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["= ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["+\[Gamma]",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\[CloseCurlyQuote]\n",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "2"], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["= ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["+\[Gamma]",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\[CloseCurlyQuote]\n      \[VerticalEllipsis]\n",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    RowBox[{"k", "+", "1", " "}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["=",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["x", "k"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["+\[Gamma]",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\[CloseCurlyQuote]\n        \[VerticalEllipsis]",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.6711981479458117`*^9, 3.6711981569686384`*^9}, {
  3.6716168257905827`*^9, 3.6716168724037375`*^9}}],

Cell["\<\
Szeml\[EAcute]ltet\[UDoubleDot]nk egy f\[UDoubleDot]ggv\[EAcute]nyt, amelyet \
ezzel a m\[OAcute]dszerrel k\[ODoubleDot]zel\[IAcute]t\[UDoubleDot]nk.\
\>", "Text",
 CellChangeTimes->{{3.6715264796351385`*^9, 3.671526504569803*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MyEuler", "[", 
   RowBox[{"kezdet_", ",", "veg_", ",", "kezdetiertek_", ",", "lepesszam_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "=", "kezdet"}], ",", 
      RowBox[{"b", "=", "veg"}], ",", "j", ",", 
      RowBox[{"m", "=", "lepesszam"}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"h", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "-", "a"}], ")"}], "/", "m"}]}], ";", 
     RowBox[{"V", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"a", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"j", "-", "1"}], ")"}], " ", "h"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", 
          RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"W", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"kezdetiertek", ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", 
          RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", "1"}], ",", 
       RowBox[{"j", "\[LessEqual]", "m"}], ",", 
       RowBox[{"j", "++"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"W", "[", 
          RowBox[{"[", 
           RowBox[{"j", "+", "1"}], "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"W", "[", 
           RowBox[{"[", "j", "]"}], "]"}], "+", 
          RowBox[{"h", " ", 
           RowBox[{"f", "[", 
            RowBox[{
             RowBox[{"V", "[", 
              RowBox[{"[", "j", "]"}], "]"}], ",", 
             RowBox[{"W", "[", 
              RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}]}], ";"}]}], "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{"V", ",", "W"}], "}"}]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6715167580164084`*^9, 3.6715167596102023`*^9}, {
  3.6715205950434427`*^9, 3.671520595684868*^9}, {3.6715206423943305`*^9, 
  3.6715207333736563`*^9}, {3.671521637193203*^9, 3.671521642887001*^9}, {
  3.671693720515568*^9, 3.671693743199732*^9}}],

Cell["Figyelj\[UDoubleDot]k meg, amikor 3 \
l\[EAcute]p\[EAcute]sk\[ODoubleDot]zzel k\[ODoubleDot]zel\[IAcute]t\
\[UDoubleDot]nk:", "Text",
 CellChangeTimes->{{3.6715267753194695`*^9, 3.671526817637103*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"0.5", "x"}], "-", 
    RowBox[{"0.04", 
     RowBox[{"x", "^", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pts", "=", 
   RowBox[{"MyEuler", "[", 
    RowBox[{"0.0", ",", "10.0", ",", "1", ",", "3"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"nsol", "[", "t_", "]"}], "=", 
   RowBox[{"NDSolveValue", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "t", "]"}], "==", 
        RowBox[{
         RowBox[{"0.5", 
          RowBox[{"x", "[", "t", "]"}]}], "-", 
         RowBox[{"0.04", 
          RowBox[{
           RowBox[{"x", "[", "t", "]"}], "^", "2"}]}]}]}], ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"A", "=", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{"pts", ",", 
      RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", "Orange"}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Pink"}]}], "]"}]}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nsol", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.671520627416101*^9, 3.6715206340677643`*^9}, 
   3.671520822913931*^9, 3.671520862329606*^9, 3.671520985019486*^9, {
   3.671521018780203*^9, 3.6715210225617237`*^9}, {3.6715211088365993`*^9, 
   3.671521157765588*^9}, {3.671521648780632*^9, 3.671521656577849*^9}, {
   3.671526534860317*^9, 3.6715265566525292`*^9}, {3.6715266054971848`*^9, 
   3.6715266190746346`*^9}, {3.67152667891297*^9, 3.6715266994817204`*^9}, {
   3.671526746738354*^9, 3.6715267573064175`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    GraphicsComplexBox[{{0., 1.}, {3.333333333333333, 2.533333333333333}, {
     6.666666666666666, 5.899851851851851}, {10., 
     11.091838021764975`}}, {{{}, {}, 
       {RGBColor[1, 0.5, 0.5], PointSize[0.019444444444444445`], 
        AbsoluteThickness[1.6], LineBox[{1, 2, 3, 4}]}}, {
       {RGBColor[1, 0.5, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
        PointBox[{1, 2, 3, 4}]}, {}, {}}}], {}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVj2s01HkAhqfGoBpCuQ3G8B/zZ2KWdYnE75U2RLJtDroaoVSyKF1XLidy
TaysWyJlW0vntNmlpCm1bkNJd5VSSOk0GlNErP3wnuc8X55zXpOQqHVhcxkM
xprZ/c/S+BBlm9AM1zNLbfUZDBk5vWFkWQAvgvSIhZGtLBl5siY9hsc7SJq4
XuW5C2Rkv0eQOouXRlT6zG9Z6srIqlvY9MW4kMRlljAPiGSkJskuWWZ8gbjE
8x7v3Cwjr8S1Oh+MG8iptUv9bzfKyOEfdwW/N24j/3BVb0QkjpJ5E8Vtu0VP
yfbGKr6Sp5xE3zyaORLzmjiojK9crq0gosq87su1w0RaFGox+O0zGfDdYdjn
KCN5+WXaGs4TpICTYlQeLCdKCVZ3dh6ZJE4x9ReZ0s9Ex7p71T7uNGl+VOwX
RX8lJYIq+8RYBmwyp131vL6RoobJYOdHc+AxuKzPOoABF6dPftqxTAxZ/f3D
2MgctJR2/RvDZuHwVJpt4yEmlo/ZjtnVKUNF823EeiELBXXltF2JKlidLI8F
15ThwvEikkPzMdlVszs3WhUazv6BrGI2BgJq9bnc+Uimgi6rtKvD7fieyNaa
Bei5aJGpvFcD+dP189y3qsFDnm27rlITGw2bfZ7J1bE6m45mt2mBLVkyYuqv
gWH3mMUR6osRZl+hCLLUxORAYVrZem3sjz+wjqfQxNNAoSIzTQfH3uX1dHVp
Qe1bQMb9Xl34CBf+zi5aBOXeQi0bfX1k1ThIfMSLYRf3R7+9HwftP52d2uuk
jazn2b6tZQaQdEZlWjJnO5PeV84+MMSlnYmQPtcBK7X7jojHBdebOO65rItE
3sbg65uN4T6zKbnsiB7G0y3DHQkPoQ+vf6r310dOSFyf6iMeXBOT6sQ8DgzT
nB/f3WqC3KjRq+whDswSNz159dIE/QnnBsuaDFBWH5ShCDfF+7CG0Juphjgn
8G21fWEKWaSWSqfYCPe2OBoPBFKo9eqYCrfioumk15D1bQqDO6wdmAoujhqc
F8RZ8MGpfpqX2mmMpN+q71ad4CM5OKai05sHwYtyhuItH1+m9LO8G3igL6bw
3d3NYH61oLCdb4L00x89f803g/2222s100xgtXZFy/AzM0hKtPWkChNoql64
dJIvgLlEO913oyn+1NgvCg4RYA1rxOhekyns2tnF0UUCyHrfNLcJKaS2Sd3i
7wkQVZK1KO0Ehb4oZ0XuXBrSOfyPq09SCDhl3hHMpCHcfqWdnUeBnaDrL1Ki
8cZmKDHn1OyvCf9jrSwagS2QFZRS2OV3I2hClcaKT3Lp+WoKGmr5Az4Laeh4
bki51UIhcsiHajSgEVsjE6e0UbiWs7IywZDGXa1UF88OCg9fzPSuNKKR8fyv
sY4uCvsO6v8s5dJgxKpt63lAYVTPzeqxCY13pRLS/5qC07Fz6v00DQ9mgEHl
AIWQzRbKFeY0Knd8+Bw2RKGC010ntqCx1ZZTO/yOQvz6Ny4vhTTut8Yajo5S
EDokyZ9Y0bARzR+/JKdQVJVVWyCikZ13pmevgoIXN9LU/zsaXls608fHKRxa
wrC/Y03jfPO28CtfKSi19/Vk2NBQsvjqdmSKwutf3i/x/J6GODvHyHWagp63
k4uSLY0muWBiZoZCtX2fimTW/wPzjw5d
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 10.}, {0, 11.091838021764975`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.671520745139107*^9, 3.6715208270326786`*^9, 3.6715208628799644`*^9, 
   3.6715209859170804`*^9, 3.6715210533123693`*^9, 3.6715211283293347`*^9, 
   3.6715211583779964`*^9, {3.671521650014449*^9, 3.6715216575094595`*^9}, {
   3.6715265355537796`*^9, 3.671526558036456*^9}, {3.6715266077466793`*^9, 
   3.671526619607995*^9}, {3.6715266667078075`*^9, 3.6715267002772446`*^9}, 
   3.671526751171317*^9, 3.671526918324597*^9, {3.6715269616905975`*^9, 
   3.671526983625258*^9}, 3.6715430208057985`*^9, {3.6715430589392743`*^9, 
   3.6715430655802484`*^9}, {3.671544106759661*^9, 3.67154413375362*^9}, 
   3.6715445291759977`*^9, 3.6715445665775223`*^9, {3.671596093072603*^9, 
   3.6715961012473755`*^9}, {3.6716119025481834`*^9, 3.671611907451459*^9}, {
   3.6716134218282423`*^9, 3.671613432077095*^9}, 3.671633642562875*^9, 
   3.671683243894752*^9, {3.6716865476722183`*^9, 3.6716865590024557`*^9}, 
   3.6716866174003325`*^9, 3.6716920487960467`*^9, 3.671693747396534*^9}]
}, {2}]],

Cell["Illetve amikor 10 l\[EAcute]p\[EAcute]sk\[ODoubleDot]zzel:", "Text",
 CellChangeTimes->{{3.671526801558997*^9, 3.671526814569049*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"0.5", "x"}], "-", 
    RowBox[{"0.04", 
     RowBox[{"x", "^", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pts", "=", 
   RowBox[{"MyEuler", "[", 
    RowBox[{"0.0", ",", "10.0", ",", "1", ",", "10"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"nsol", "[", "t_", "]"}], "=", 
   RowBox[{"NDSolveValue", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "t", "]"}], "==", 
        RowBox[{
         RowBox[{"0.5", 
          RowBox[{"x", "[", "t", "]"}]}], "-", 
         RowBox[{"0.04", 
          RowBox[{
           RowBox[{"x", "[", "t", "]"}], "^", "2"}]}]}]}], ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"B", "=", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{"pts", ",", 
      RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", "Green"}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nsol", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.671520627416101*^9, 3.6715206340677643`*^9}, 
   3.671520822913931*^9, 3.671520862329606*^9, 3.671520985019486*^9, {
   3.671521018780203*^9, 3.6715210774031043`*^9}, 3.6715211737596345`*^9, {
   3.671521597529251*^9, 3.6715216274926243`*^9}, {3.671521851343851*^9, 
   3.671521868312543*^9}, {3.6715218989492054`*^9, 3.6715219311495323`*^9}, {
   3.6715232409878745`*^9, 3.671523274176094*^9}, {3.6715265293516426`*^9, 
   3.6715265298269587`*^9}, {3.671526715167217*^9, 3.6715267351846323`*^9}, {
   3.67152682382924*^9, 3.671526855493665*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    GraphicsComplexBox[{{0., 1.}, {1., 1.46}, {2., 2.104736}, {3., 
     2.97990745481216}, {4., 4.1146672446484365`}, {5., 5.494781405605345}, {
     6., 7.034467200592567}, {7., 8.572351649040346}, {8., 
     9.91911896176833}, {9., 10.943121603544014`}, {10., 
     11.624605988117953`}}, {{{}, {}, 
       {RGBColor[0, 0, 1], PointSize[0.019444444444444445`], 
        AbsoluteThickness[1.6], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11}]}}, {
       {RGBColor[0, 1, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
        PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
         11}]}, {}, {}}}], {}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVj2s01HkAhqfGoBpCuQ3G8B/zZ2KWdYnE75U2RLJtDroaoVSyKF1XLidy
TaysWyJlW0vntNmlpCm1bkNJd5VSSOk0GlNErP3wnuc8X55zXpOQqHVhcxkM
xprZ/c/S+BBlm9AM1zNLbfUZDBk5vWFkWQAvgvSIhZGtLBl5siY9hsc7SJq4
XuW5C2Rkv0eQOouXRlT6zG9Z6srIqlvY9MW4kMRlljAPiGSkJskuWWZ8gbjE
8x7v3Cwjr8S1Oh+MG8iptUv9bzfKyOEfdwW/N24j/3BVb0QkjpJ5E8Vtu0VP
yfbGKr6Sp5xE3zyaORLzmjiojK9crq0gosq87su1w0RaFGox+O0zGfDdYdjn
KCN5+WXaGs4TpICTYlQeLCdKCVZ3dh6ZJE4x9ReZ0s9Ex7p71T7uNGl+VOwX
RX8lJYIq+8RYBmwyp131vL6RoobJYOdHc+AxuKzPOoABF6dPftqxTAxZ/f3D
2MgctJR2/RvDZuHwVJpt4yEmlo/ZjtnVKUNF823EeiELBXXltF2JKlidLI8F
15ThwvEikkPzMdlVszs3WhUazv6BrGI2BgJq9bnc+Uimgi6rtKvD7fieyNaa
Bei5aJGpvFcD+dP189y3qsFDnm27rlITGw2bfZ7J1bE6m45mt2mBLVkyYuqv
gWH3mMUR6osRZl+hCLLUxORAYVrZem3sjz+wjqfQxNNAoSIzTQfH3uX1dHVp
Qe1bQMb9Xl34CBf+zi5aBOXeQi0bfX1k1ThIfMSLYRf3R7+9HwftP52d2uuk
jazn2b6tZQaQdEZlWjJnO5PeV84+MMSlnYmQPtcBK7X7jojHBdebOO65rItE
3sbg65uN4T6zKbnsiB7G0y3DHQkPoQ+vf6r310dOSFyf6iMeXBOT6sQ8DgzT
nB/f3WqC3KjRq+whDswSNz159dIE/QnnBsuaDFBWH5ShCDfF+7CG0Juphjgn
8G21fWEKWaSWSqfYCPe2OBoPBFKo9eqYCrfioumk15D1bQqDO6wdmAoujhqc
F8RZ8MGpfpqX2mmMpN+q71ad4CM5OKai05sHwYtyhuItH1+m9LO8G3igL6bw
3d3NYH61oLCdb4L00x89f803g/2222s100xgtXZFy/AzM0hKtPWkChNoql64
dJIvgLlEO913oyn+1NgvCg4RYA1rxOhekyns2tnF0UUCyHrfNLcJKaS2Sd3i
7wkQVZK1KO0Ehb4oZ0XuXBrSOfyPq09SCDhl3hHMpCHcfqWdnUeBnaDrL1Ki
8cZmKDHn1OyvCf9jrSwagS2QFZRS2OV3I2hClcaKT3Lp+WoKGmr5Az4Laeh4
bki51UIhcsiHajSgEVsjE6e0UbiWs7IywZDGXa1UF88OCg9fzPSuNKKR8fyv
sY4uCvsO6v8s5dJgxKpt63lAYVTPzeqxCY13pRLS/5qC07Fz6v00DQ9mgEHl
AIWQzRbKFeY0Knd8+Bw2RKGC010ntqCx1ZZTO/yOQvz6Ny4vhTTut8Yajo5S
EDokyZ9Y0bARzR+/JKdQVJVVWyCikZ13pmevgoIXN9LU/zsaXls608fHKRxa
wrC/Y03jfPO28CtfKSi19/Vk2NBQsvjqdmSKwutf3i/x/J6GODvHyHWagp63
k4uSLY0muWBiZoZCtX2fimTW/wPzjw5d
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 10.}, {0, 11.624605988117953`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6715210482856083`*^9, 3.671521078003499*^9}, 
   3.67152117485336*^9, {3.671521598213705*^9, 3.671521627985945*^9}, 
   3.6715218749404693`*^9, {3.671521911536618*^9, 3.6715219319760785`*^9}, {
   3.671523248421837*^9, 3.6715232747875032`*^9}, 3.67152653045037*^9, 
   3.671526661526345*^9, {3.671526715645533*^9, 3.6715267357640176`*^9}, 
   3.6715268559349527`*^9, 3.671526918410653*^9, {3.6715269617806563`*^9, 
   3.671526986254016*^9}, 3.6715430208682985`*^9, 3.671544106853423*^9, 
   3.671544139550803*^9, 3.6715445292385015`*^9, 3.671544572347581*^9, {
   3.6715960931496553`*^9, 3.6715961038461127`*^9}, {3.6716119026262336`*^9, 
   3.6716119088363857`*^9}, {3.6716134219233103`*^9, 3.67161343355508*^9}, 
   3.671633642711975*^9, 3.6716832460215683`*^9, {3.671686547817315*^9, 
   3.6716865591265383`*^9}, 3.671686617522414*^9, 3.6716920488660936`*^9, 
   3.671693754088007*^9}]
}, {2}]],

Cell["\<\
A kett\[ODoubleAcute]t egy \[AAcute]br\[AAcute]n \[AAcute]br\[AAcute]zolva l\
\[AAcute]thatjuk, hogy t\[ODoubleDot]bb \
l\[EAcute]p\[EAcute]sk\[ODoubleDot]zzel pontosabb a \
k\[ODoubleDot]zel\[IAcute]t\[EAcute]s:\
\>", "Text",
 CellChangeTimes->{{3.6715270071444645`*^9, 3.6715270662927494`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"nsol", "[", "t_", "]"}], "=", 
   RowBox[{"NDSolveValue", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "t", "]"}], "==", 
        RowBox[{
         RowBox[{"0.5", 
          RowBox[{"x", "[", "t", "]"}]}], "-", 
         RowBox[{"0.04", 
          RowBox[{
           RowBox[{"x", "[", "t", "]"}], "^", "2"}]}]}]}], ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"A", ",", "B", ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nsol", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6715214670158677`*^9, 3.6715214970987854`*^9}, {
  3.6715217604529104`*^9, 3.671521761390538*^9}, {3.6715217996608205`*^9, 
  3.6715218042859173`*^9}, {3.6715219359870567`*^9, 3.671521936221213*^9}, {
  3.671526931123165*^9, 3.671526934309294*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    GraphicsComplexBox[{{0., 1.}, {3.333333333333333, 2.533333333333333}, {
     6.666666666666666, 5.899851851851851}, {10., 
     11.091838021764975`}}, {{{}, {}, 
       {RGBColor[1, 0.5, 0.5], PointSize[0.019444444444444445`], 
        AbsoluteThickness[1.6], LineBox[{1, 2, 3, 4}]}}, {
       {RGBColor[1, 0.5, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
        PointBox[{1, 2, 3, 4}]}, {}, {}}}], {}}, {{}, 
    GraphicsComplexBox[{{0., 1.}, {1., 1.46}, {2., 2.104736}, {3., 
     2.97990745481216}, {4., 4.1146672446484365`}, {5., 5.494781405605345}, {
     6., 7.034467200592567}, {7., 8.572351649040346}, {8., 
     9.91911896176833}, {9., 10.943121603544014`}, {10., 
     11.624605988117953`}}, {{{}, {}, 
       {RGBColor[0, 0, 1], PointSize[0.019444444444444445`], 
        AbsoluteThickness[1.6], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11}]}}, {
       {RGBColor[0, 1, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
        PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
         11}]}, {}, {}}}], {}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVj2s01HkAhqfGoBpCuQ3G8B/zZ2KWdYnE75U2RLJtDroaoVSyKF1XLidy
TaysWyJlW0vntNmlpCm1bkNJd5VSSOk0GlNErP3wnuc8X55zXpOQqHVhcxkM
xprZ/c/S+BBlm9AM1zNLbfUZDBk5vWFkWQAvgvSIhZGtLBl5siY9hsc7SJq4
XuW5C2Rkv0eQOouXRlT6zG9Z6srIqlvY9MW4kMRlljAPiGSkJskuWWZ8gbjE
8x7v3Cwjr8S1Oh+MG8iptUv9bzfKyOEfdwW/N24j/3BVb0QkjpJ5E8Vtu0VP
yfbGKr6Sp5xE3zyaORLzmjiojK9crq0gosq87su1w0RaFGox+O0zGfDdYdjn
KCN5+WXaGs4TpICTYlQeLCdKCVZ3dh6ZJE4x9ReZ0s9Ex7p71T7uNGl+VOwX
RX8lJYIq+8RYBmwyp131vL6RoobJYOdHc+AxuKzPOoABF6dPftqxTAxZ/f3D
2MgctJR2/RvDZuHwVJpt4yEmlo/ZjtnVKUNF823EeiELBXXltF2JKlidLI8F
15ThwvEikkPzMdlVszs3WhUazv6BrGI2BgJq9bnc+Uimgi6rtKvD7fieyNaa
Bei5aJGpvFcD+dP189y3qsFDnm27rlITGw2bfZ7J1bE6m45mt2mBLVkyYuqv
gWH3mMUR6osRZl+hCLLUxORAYVrZem3sjz+wjqfQxNNAoSIzTQfH3uX1dHVp
Qe1bQMb9Xl34CBf+zi5aBOXeQi0bfX1k1ThIfMSLYRf3R7+9HwftP52d2uuk
jazn2b6tZQaQdEZlWjJnO5PeV84+MMSlnYmQPtcBK7X7jojHBdebOO65rItE
3sbg65uN4T6zKbnsiB7G0y3DHQkPoQ+vf6r310dOSFyf6iMeXBOT6sQ8DgzT
nB/f3WqC3KjRq+whDswSNz159dIE/QnnBsuaDFBWH5ShCDfF+7CG0Juphjgn
8G21fWEKWaSWSqfYCPe2OBoPBFKo9eqYCrfioumk15D1bQqDO6wdmAoujhqc
F8RZ8MGpfpqX2mmMpN+q71ad4CM5OKai05sHwYtyhuItH1+m9LO8G3igL6bw
3d3NYH61oLCdb4L00x89f803g/2222s100xgtXZFy/AzM0hKtPWkChNoql64
dJIvgLlEO913oyn+1NgvCg4RYA1rxOhekyns2tnF0UUCyHrfNLcJKaS2Sd3i
7wkQVZK1KO0Ehb4oZ0XuXBrSOfyPq09SCDhl3hHMpCHcfqWdnUeBnaDrL1Ki
8cZmKDHn1OyvCf9jrSwagS2QFZRS2OV3I2hClcaKT3Lp+WoKGmr5Az4Laeh4
bki51UIhcsiHajSgEVsjE6e0UbiWs7IywZDGXa1UF88OCg9fzPSuNKKR8fyv
sY4uCvsO6v8s5dJgxKpt63lAYVTPzeqxCY13pRLS/5qC07Fz6v00DQ9mgEHl
AIWQzRbKFeY0Knd8+Bw2RKGC010ntqCx1ZZTO/yOQvz6Ny4vhTTut8Yajo5S
EDokyZ9Y0bARzR+/JKdQVJVVWyCikZ13pmevgoIXN9LU/zsaXls608fHKRxa
wrC/Y03jfPO28CtfKSi19/Vk2NBQsvjqdmSKwutf3i/x/J6GODvHyHWagp63
k4uSLY0muWBiZoZCtX2fimTW/wPzjw5d
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 10.}, {0, 11.091838021764975`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.671521468176632*^9, 3.6715215422407246`*^9}, 
   3.6715216700221972`*^9, 3.671521763379862*^9, {3.671521805598795*^9, 
   3.671521815733421*^9}, 3.671521936855633*^9, 3.671526878596101*^9, {
   3.671526915717855*^9, 3.671526988943813*^9}, 3.6715430209151764`*^9, 
   3.6715441069628043`*^9, 3.6715441456761274`*^9, 3.6715445293166265`*^9, 
   3.671544578910426*^9, {3.6715960931956887`*^9, 3.671596106822101*^9}, {
   3.6716119026732655`*^9, 3.671611910390424*^9}, {3.6716134219893513`*^9, 
   3.6716134350450788`*^9}, 3.6716336427790194`*^9, 3.6716832486903496`*^9, {
   3.6716865479123807`*^9, 3.6716865592246056`*^9}, 3.6716866176324887`*^9, 
   3.671692048926132*^9, 3.67169375806767*^9}]
}, {2}]],

Cell["\<\
A k\[ODoubleDot]vetkez\[ODoubleAcute] \[AAcute]br\[AAcute]n \
v\[AAcute]ltoztathatjuk a l\[EAcute]p\[EAcute]sk\[ODoubleDot]zt \[EAcute]s a \
k\[ODoubleDot]zel\[IAcute]t\[ODoubleAcute] f\[UDoubleDot]ggv\[EAcute]ny \
pontosabb lesz. \
\>", "Text",
 CellChangeTimes->{{3.671527295165367*^9, 3.6715273758479605`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"0.5", "x"}], "-", 
    RowBox[{"0.04", 
     RowBox[{"x", "^", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"nsol", "[", "t_", "]"}], "=", 
   RowBox[{"NDSolveValue", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "t", "]"}], "==", 
        RowBox[{
         RowBox[{"0.5", 
          RowBox[{"x", "[", "t", "]"}]}], "-", 
         RowBox[{"0.04", 
          RowBox[{
           RowBox[{"x", "[", "t", "]"}], "^", "2"}]}]}]}], ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"pts", "=", 
     RowBox[{"MyEuler", "[", 
      RowBox[{"0.0", ",", "10.0", ",", "1", ",", "k"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"nsol", "[", "t", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "12"}], "}"}]}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      RowBox[{"B", "=", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{"pts", ",", 
         RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
         RowBox[{"MeshStyle", "\[Rule]", "Orange"}], ",", 
         RowBox[{"Frame", "\[Rule]", "True"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Pink"}]}], "]"}]}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "k", ",", "10", ",", "\"\<l\[EAcute]p\[EAcute]sk\[ODoubleDot]z\>\""}], 
      "}"}], ",", "1", ",", "30", ",", "1"}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.671520627416101*^9, 3.6715206340677643`*^9}, 
   3.671520822913931*^9, 3.671520862329606*^9, 3.671520985019486*^9, {
   3.671521018780203*^9, 3.6715210774031043`*^9}, 3.6715211737596345`*^9, {
   3.671521597529251*^9, 3.6715216274926243`*^9}, {3.671521851343851*^9, 
   3.671521868312543*^9}, {3.6715218989492054`*^9, 3.6715219311495323`*^9}, {
   3.6715225767116337`*^9, 3.671522615475277*^9}, {3.6715226455126653`*^9, 
   3.6715227293563533`*^9}, {3.671522824067895*^9, 3.6715228340923567`*^9}, {
   3.6715228649219837`*^9, 3.671522978689375*^9}, {3.671523018999452*^9, 
   3.6715231010143633`*^9}, {3.671523135000996*^9, 3.671523159908941*^9}, {
   3.671527188841034*^9, 3.671527282852319*^9}, {3.6715441656971393`*^9, 
   3.6715441921240883`*^9}, {3.671693775132489*^9, 3.6716937871488433`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 13, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`k$$], 10, "l\[EAcute]p\[EAcute]sk\[ODoubleDot]z"}, 1,
       30, 1}}, Typeset`size$$ = {432., {140., 147.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`k$33436$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`k$$ = 10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$33436$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`pts = $CellContext`MyEuler[
         0., 10., 1, $CellContext`k$$]; Show[
         Plot[
          $CellContext`nsol[$CellContext`t], {$CellContext`t, 0, 10}, 
          PlotRange -> {0, 12}, PlotStyle -> Red], $CellContext`B = 
         ListLinePlot[$CellContext`pts, Mesh -> All, MeshStyle -> Orange, 
           Frame -> True, PlotStyle -> Pink]]), 
      "Specifications" :> {{{$CellContext`k$$, 10, 
          "l\[EAcute]p\[EAcute]sk\[ODoubleDot]z"}, 1, 30, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{489., {193., 200.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`pts = {{0., 1}, {1., 1.46}, {2., 
         2.104736}, {3., 2.97990745481216}, {4., 4.1146672446484365`}, {5., 
         5.494781405605345}, {6., 7.034467200592567}, {7., 
         8.572351649040346}, {8., 9.91911896176833}, {9., 
         10.943121603544014`}, {10., 
         11.624605988117953`}}, $CellContext`MyEuler[
         Pattern[$CellContext`kezdet, 
          Blank[]], 
         Pattern[$CellContext`veg, 
          Blank[]], 
         Pattern[$CellContext`kezdetiertek, 
          Blank[]], 
         Pattern[$CellContext`lepesszam, 
          Blank[]]] := 
       Module[{$CellContext`a = $CellContext`kezdet, $CellContext`b = \
$CellContext`veg, $CellContext`j, $CellContext`m = $CellContext`lepesszam}, \
$CellContext`h = ($CellContext`b - $CellContext`a)/$CellContext`m; \
$CellContext`V = 
          Table[$CellContext`a + ($CellContext`j - 
              1) $CellContext`h, {$CellContext`j, 1, $CellContext`m + 
             1}]; $CellContext`W = 
          Table[$CellContext`kezdetiertek, {$CellContext`j, 1, $CellContext`m + 
             1}]; For[$CellContext`j = 1, $CellContext`j <= $CellContext`m, 
           Increment[$CellContext`j], 
           Part[$CellContext`W, $CellContext`j + 1] = 
            Part[$CellContext`W, $CellContext`j] + $CellContext`h \
$CellContext`f[
                Part[$CellContext`V, $CellContext`j], 
                Part[$CellContext`W, $CellContext`j]]; Null]; 
         Transpose[{$CellContext`V, $CellContext`W}]], $CellContext`a = 
       1, $CellContext`b = 2, $CellContext`h = 
       1., $CellContext`V = {0., 1., 2., 3., 4., 5., 6., 7., 8., 9., 
        10.}, $CellContext`W = {
        1, 1.46, 2.104736, 2.97990745481216, 4.1146672446484365`, 
         5.494781405605345, 7.034467200592567, 8.572351649040346, 
         9.91911896176833, 10.943121603544014`, 
         11.624605988117953`}, $CellContext`f[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`x, 
          Blank[]]] = 
       0.5 $CellContext`x - 0.04 $CellContext`x^2, $CellContext`nsol[
         Pattern[$CellContext`t, 
          Blank[]]] = 
       InterpolatingFunction[{{0., 10.}}, {
         5, 7, 1, {66}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
          False}, CompressedData["
1:eJwBIQLe/SFib1JlAgAAAAEAAABCAAAAAAAAAAAAAADoGdphr9I6P+gZ2mGv
0ko/augtiSDGiD+bFx8Oi++XP4Cd0+sCvqE/YsWPDTPJoT9D7UsvY9ShPyQV
CFGT36E/Bj3EcsPqoT/nZICU8/WhP6m0+NdTDKI/bARxG7Qioj8uVOleFDmi
P8hxnAHXGKM/YY9PpJn4oz/6rAJHXNikP5PKtekeuKU/jvK0RLl1rj9FDdrP
qZmzP0OhWf12+Lc/QDXZKkRXvD/JDr4Vxp/KP3nBBwv1idM/jXswCwfE2T+h
NVkLGf7fP9v3wIUVHOM/RX8EcI+t5z+vBkhaCT/sPw3HRaJBaPA/wopnl/6w
8j93TomMu/n0PywSq4F4Qvc/MXh3Lit1+j823kPb3af9Px0iCERIbQBAIFVu
mqEGAkAiiNTw+p8DQCW7OkdUOQVAJ+6gna3SBkCKHJ+j0bUIQOxKnan1mApA
T3mbrxl8DECyp5m1PV8OQArry90wIRBAOwLL4MISEUBtGcrjVAQSQJ4wyebm
9RJAqrfy4RoiFEC1PhzdTk4VQMHFRdiCehZAzExv07amF0DY05jO6tIYQONa
wske/xlA7+HrxFIrG0D7aBXAhlccQAbwPru6gx1AEndotu6vHkAd/pGxItwf
QJTCXVYrhCBAbjYUM6RFIUA4aBGvn+UhQAKaDiubhSJAzcsLp5YlI0Dm5YVT
y5IjQAAAAAAAACRA8dbvYg==
         "], {
         Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 
          22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 
          56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 
          90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 
          118, 120, 122, 124, 126, 128, 130, 132}, CompressedData["
1:eJw1z2kwnHccwHHsOoIhKFm2iHPrWMaopI71+yM1kVA3xbqHODZlEUbrvgap
lrgiDZqsBElNko01U9quZiVRUZrWjjqe3Q3ijOzj3lRUnzf9vvu8/JokZAQl
ycvJyVXI/R8ObIbqNCcTg7f8wuynhDP4vnVSNgY/0n+Q1srjQI409HfNxkDj
9amuGT0cwib3SAqtGNzpbj/raYvDGQtn8sYgBsXJ8oIRDxwiSuif74swoA30
1bwl3KXrGeAmxqBKMhRA8cSh2OLF+TLCAcs2FE/CLxyEHqOEXUaPxOmE+S5x
rhoSDGRVDj3NhK8jllMI4WA+03mN8DQz0VpCGDI1x928cOClxpiwXmEQ2+kT
V084Ny3aQEZY4v+waMobh7/odl6ZKxj0tH94Rv8CDid2G5zW3mBwO6+rKsYP
h372t1sJ2xjsLEVndgXgEJ5Pz8MOMDBdd/ymhI2DRWWb0p92IgjMMVu4fo34
T1vO0U0WQUZP0pPNxzj8QrKa7W4XATnVr7JYiINEKPatEYqg9YRQntW2BXG0
OfGeugQ0ow2Go5K2wb1cnOfQLwEvP7uWOucd+CBOyzo/7hU4Vc+FIL1dSCDT
Wse0FmCmk9HEPdwF7aPFFaPRBbC6cfm3x8x9sJMv43XMLwJ/Xav85csD6Go6
1dB0uAT96VzSaNQ7iKD0LN43X4bJ0JZa38N/QDBsfycrfAXKMFtNtUfvIdRc
RxDWuArt418tcQr/BauJoHHO9Bp037q5ctwkh6I8ZbH29zbAxu1Y+ruCAjo2
o1bxqjehIM1YcbiahJ6d9FcYy5DC3bVLV6xpiqjUbdid24dDb2S+sbVICTG8
8rlszhYwS7WPbvapIMUH1I7alm1Q4TJDqM2q6Du3hq/NK3bARmPVlr2tjpy6
s7rDGnZBeYRhdO0LTRTmsGQQX7cHF4TSp40kLZSTUsTazNoHaax+VjtTG50l
Sb4XuB1AdGBvaMewDqplcdQUlw9gO/iSTw1dF/VkXI1ISZPB/NSEu94tPZTD
SPXMeiYDXlfVwiSFggo+FurePZABZUYp/P6mPop8jqptCffyXOPf86motpL6
UT1XBi6aY/FztYaopW3j6oCtDEYSOR4PfYyR3uUYQ/P0A5gInhy0LziN/hA8
Ny2/sg+Ce4lBAz4mKKEu9ydy6B6cm/Niq6ibonFGAOmRzi7IR64qmz4xRQmD
YqehoW1oNrS2jk43Q9qppfSNsC1IFdXPpiubo4xCHT3/eSnUsGcdP2sxRzJH
1vmL2ptAZoiCvSkW6PTf4faFzHX49GJ3ekWfBSoZVz7iqa3AjcAo5G1giT7Z
zZ6nFi0BdeBX3s9fWqLJnnMpnSYLIKvI9VmZtESZRsnh3ltiKJ9qzDxJpiG5
2xWCd84YvM4fVB12pKEHb0rtWNxZ+A/zy/i/
          "]}, {Automatic}][$CellContext`t], $CellContext`B = Graphics[{{}, 
          
          GraphicsComplex[{{0., 1.}, {1., 1.46}, {2., 2.104736}, {3., 
           2.97990745481216}, {4., 4.1146672446484365`}, {5., 
           5.494781405605345}, {6., 7.034467200592567}, {7., 
           8.572351649040346}, {8., 9.91911896176833}, {9., 
           10.943121603544014`}, {10., 11.624605988117953`}}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.019444444444444445`], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0.5, 0.5]], 
              Line[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11}]}}, {{
              Directive[
               PointSize[0.019444444444444445`], 
               AbsoluteThickness[1.6], 
               AbsolutePointSize[6], 
               RGBColor[1, 0.5, 0]], 
              Point[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11}]}, {}, {}}}], {}}, {
         DisplayFunction -> Identity, PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, AxesOrigin -> {0, 0}, 
          PlotRange -> {{0, 10.}, {0, 11.624605988117953`}}, DisplayFunction -> 
          Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
          AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
          Identity, Frame -> {{True, True}, {True, True}}, 
          FrameLabel -> {{None, None}, {None, None}}, 
          FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], Method -> {}, 
          PlotRange -> {{0, 10.}, {0, 11.624605988117953`}}, 
          PlotRangeClipping -> True, PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}]}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.6715226038194885`*^9, 3.671522616467943*^9}, {
   3.671522657772216*^9, 3.671522730246947*^9}, {3.671522826018198*^9, 
   3.6715229211460075`*^9}, {3.671522959644333*^9, 3.6715229800782995`*^9}, {
   3.6715230867082205`*^9, 3.671523102128107*^9}, 3.6715231613288927`*^9, 
   3.6715269186418085`*^9, 3.671526962003807*^9, {3.6715271925595284`*^9, 
   3.6715272531794767`*^9}, 3.6715272847425795`*^9, 3.6715430209464316`*^9, 
   3.6715441070096755`*^9, {3.6715441521452208`*^9, 3.6715441931397314`*^9}, 
   3.6715445293635035`*^9, 3.67154458331691*^9, {3.67159609323271*^9, 
   3.6715961095389166`*^9}, {3.6716119027052865`*^9, 3.671611911829387*^9}, {
   3.6716134220353823`*^9, 3.671613436675811*^9}, 3.6716336428640766`*^9, 
   3.671683250968874*^9, {3.6716865479774237`*^9, 3.671686559291649*^9}, 
   3.6716866177205467`*^9, 3.671692048969163*^9, {3.671693762469611*^9, 
   3.6716937877602496`*^9}}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Jav\[IAcute]tott Euler-m\[OAcute]dszer", "Subsubsection",
 CellChangeTimes->{{3.6712007171544394`*^9, 3.6712007268171587`*^9}}],

Cell["\<\
A fenti bizony\[IAcute]t\[AAcute]s mutatja, hogy az Euler-m\[OAcute]dszer \
lassan konverg\[AAcute]l, ez\[EAcute]rt ritk\[AAcute]n is haszn\[AAcute]lj\
\[AAcute]k. Egy kis jav\[IAcute]t\[AAcute]ssal, viszont jobb \
eredm\[EAcute]nyeket v\[AAcute]rhatunk.\
\>", "Text",
 CellChangeTimes->{{3.6712007327331057`*^9, 3.671200784840852*^9}, {
  3.6715274309664683`*^9, 3.6715274368834205`*^9}}],

Cell["\<\
A m\[OAcute]dszert jav\[IAcute]thatjuk \[UAcute]gy, hogy el\[ODoubleAcute]sz\
\[ODoubleDot]r egy f\[EAcute]l l\[EAcute]p\[EAcute]st t\[EAcute]ve kisz\
\[AAcute]m\[IAcute]tjuk a f\[UDoubleDot]ggv\[EAcute]ny \[EAcute]rt\[EAcute]k\
\[EAcute]t, \[EAcute]s az \[IAcute]gy kapott meredeks\[EAcute]ggel tesz\
\[UDoubleDot]nk egy eg\[EAcute]sz l\[EAcute]p\[EAcute]st az eredeti 
( tn, yn ) pontb\[OAcute]l. Azt v\[AAcute]rjuk, hogy az \[IAcute]gy defini\
\[AAcute]lt m\[OAcute]dszer m\[AAcute]sodrend\[UDoubleAcute] \
pontoss\[AAcute]g\[UAcute] lesz.\
\>", "Text",
 CellChangeTimes->{{3.671201234187049*^9, 3.671201274016642*^9}, {
  3.6716169399096346`*^9, 3.6716169407622037`*^9}},
 TextJustification->1.],

Cell[TextData[{
 "K\[EAcute]pletekkel fel\[IAcute]rva:\n                              ",
 StyleBox["  ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"n", "+", 
     RowBox[{"1", "/", "2"}]}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["\[Tau]", "2"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[",  ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["y", 
    RowBox[{"n", "+", " ", 
     RowBox[{"1", "/", "2"}]}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["y", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["\[Tau]", "2"], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["f (",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[",",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["y", "n"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[")",
  FontSlant->"Italic"],
 "\n                                \n\[EAcute]s az eg\[EAcute]sz l\[EAcute]p\
\[EAcute]s az \[UAcute]j meredeks\[EAcute]ggel:\n                            \
\n                               ",
 Cell[BoxData[
  FormBox[
   RowBox[{"  ", 
    SubscriptBox["t", 
     RowBox[{"n", "+", "1"}]]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox["\[Tau]", TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[",  ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["y", 
    RowBox[{"n", "+", " ", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["y", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Tau]", " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["f (",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"n", "+", 
     RowBox[{"1", "/", "2"}]}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[",",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["y", 
     RowBox[{"n", "+", 
      RowBox[{"1", "/", "2"}]}]]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[")",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.6712012776751647`*^9, 3.671201367520503*^9}, {
  3.6712014031457586`*^9, 3.67120156470683*^9}}],

Cell["\<\

A jav\[IAcute]tott m\[OAcute]dszert is ugyanazon a \
f\[UDoubleDot]ggv\[EAcute]nyen mutatjuk be:\
\>", "Text",
 CellChangeTimes->{{3.6715274561202755`*^9, 3.671527473985221*^9}, 
   3.671527565386013*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MyEuler2", "[", 
   RowBox[{"kezdet_", ",", "veg_", ",", "kezdetiertek_", ",", "lepesszam_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "=", "kezdet"}], ",", 
      RowBox[{"b", "=", "veg"}], ",", "j", ",", 
      RowBox[{"m", "=", "lepesszam"}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"h", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "-", "a"}], ")"}], "/", "m"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"V", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"a", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"j", "-", "1"}], ")"}], " ", "h"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", 
          RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"W", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"kezdetiertek", ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", 
          RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", "1"}], ",", 
       RowBox[{"j", "\[LessEqual]", "m"}], ",", 
       RowBox[{"j", "++"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"W", "[", 
          RowBox[{"[", 
           RowBox[{"j", "+", "1"}], "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"W", "[", 
           RowBox[{"[", "j", "]"}], "]"}], "+", 
          RowBox[{"h", "*", " ", 
           RowBox[{"f", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"V", "[", 
               RowBox[{"[", "j", "]"}], "]"}], "+", 
              RowBox[{"h", "/", "2"}]}], ",", 
             RowBox[{
              RowBox[{"W", "[", 
               RowBox[{"[", "j", "]"}], "]"}], "+", 
              RowBox[{
               RowBox[{"h", "/", "2"}], "*", 
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{"V", "[", 
                  RowBox[{"[", "j", "]"}], "]"}], ",", 
                 RowBox[{"W", "[", 
                  RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}]}], "]"}]}]}]}], 
        ";"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "@", 
      RowBox[{"{", 
       RowBox[{"V", ",", "W"}], "}"}]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.671611922891786*^9, 3.6716120041316137`*^9}, {
  3.671693901079547*^9, 3.6716939332120233`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"0.5", "x"}], "-", 
    RowBox[{"0.04", 
     RowBox[{"x", "^", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pts2", "=", 
   RowBox[{"MyEuler2", "[", 
    RowBox[{"0.0", ",", "10.0", ",", "1", ",", "5"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"nsol", "[", "t_", "]"}], "=", 
   RowBox[{"NDSolveValue", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "t", "]"}], "==", 
        RowBox[{
         RowBox[{"0.5", 
          RowBox[{"x", "[", "t", "]"}]}], "-", 
         RowBox[{"0.04", 
          RowBox[{
           RowBox[{"x", "[", "t", "]"}], "^", "2"}]}]}]}], ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"B", "=", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{"pts2", ",", 
      RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", "Green"}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nsol", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.671520627416101*^9, 3.6715206340677643`*^9}, 
   3.671520822913931*^9, 3.671520862329606*^9, 3.671520985019486*^9, {
   3.671521018780203*^9, 3.6715210774031043`*^9}, 3.6715211737596345`*^9, {
   3.671521597529251*^9, 3.6715216274926243`*^9}, {3.671521851343851*^9, 
   3.671521868312543*^9}, {3.6715218989492054`*^9, 3.6715219311495323`*^9}, {
   3.6715274862665887`*^9, 3.671527517735561*^9}, {3.671544220070029*^9, 
   3.6715442258672028`*^9}, {3.6716120146386433`*^9, 3.671612054116935*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    GraphicsComplexBox[{{0., 1.}, {2., 2.289472}, {4., 4.682199690853978}, {
     6., 7.806340718829344}, {8., 10.200764791056251`}, {10., 
     11.413639269777944`}}, {{{}, {}, 
       {RGBColor[0, 0, 1], PointSize[0.019444444444444445`], 
        AbsoluteThickness[1.6], LineBox[{1, 2, 3, 4, 5, 6}]}}, {
       {RGBColor[0, 1, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
        PointBox[{1, 2, 3, 4, 5, 6}]}, {}, {}}}], {}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVj2s01HkAhqfGoBpCuQ3G8B/zZ2KWdYnE75U2RLJtDroaoVSyKF1XLidy
TaysWyJlW0vntNmlpCm1bkNJd5VSSOk0GlNErP3wnuc8X55zXpOQqHVhcxkM
xprZ/c/S+BBlm9AM1zNLbfUZDBk5vWFkWQAvgvSIhZGtLBl5siY9hsc7SJq4
XuW5C2Rkv0eQOouXRlT6zG9Z6srIqlvY9MW4kMRlljAPiGSkJskuWWZ8gbjE
8x7v3Cwjr8S1Oh+MG8iptUv9bzfKyOEfdwW/N24j/3BVb0QkjpJ5E8Vtu0VP
yfbGKr6Sp5xE3zyaORLzmjiojK9crq0gosq87su1w0RaFGox+O0zGfDdYdjn
KCN5+WXaGs4TpICTYlQeLCdKCVZ3dh6ZJE4x9ReZ0s9Ex7p71T7uNGl+VOwX
RX8lJYIq+8RYBmwyp131vL6RoobJYOdHc+AxuKzPOoABF6dPftqxTAxZ/f3D
2MgctJR2/RvDZuHwVJpt4yEmlo/ZjtnVKUNF823EeiELBXXltF2JKlidLI8F
15ThwvEikkPzMdlVszs3WhUazv6BrGI2BgJq9bnc+Uimgi6rtKvD7fieyNaa
Bei5aJGpvFcD+dP189y3qsFDnm27rlITGw2bfZ7J1bE6m45mt2mBLVkyYuqv
gWH3mMUR6osRZl+hCLLUxORAYVrZem3sjz+wjqfQxNNAoSIzTQfH3uX1dHVp
Qe1bQMb9Xl34CBf+zi5aBOXeQi0bfX1k1ThIfMSLYRf3R7+9HwftP52d2uuk
jazn2b6tZQaQdEZlWjJnO5PeV84+MMSlnYmQPtcBK7X7jojHBdebOO65rItE
3sbg65uN4T6zKbnsiB7G0y3DHQkPoQ+vf6r310dOSFyf6iMeXBOT6sQ8DgzT
nB/f3WqC3KjRq+whDswSNz159dIE/QnnBsuaDFBWH5ShCDfF+7CG0Juphjgn
8G21fWEKWaSWSqfYCPe2OBoPBFKo9eqYCrfioumk15D1bQqDO6wdmAoujhqc
F8RZ8MGpfpqX2mmMpN+q71ad4CM5OKai05sHwYtyhuItH1+m9LO8G3igL6bw
3d3NYH61oLCdb4L00x89f803g/2222s100xgtXZFy/AzM0hKtPWkChNoql64
dJIvgLlEO913oyn+1NgvCg4RYA1rxOhekyns2tnF0UUCyHrfNLcJKaS2Sd3i
7wkQVZK1KO0Ehb4oZ0XuXBrSOfyPq09SCDhl3hHMpCHcfqWdnUeBnaDrL1Ki
8cZmKDHn1OyvCf9jrSwagS2QFZRS2OV3I2hClcaKT3Lp+WoKGmr5Az4Laeh4
bki51UIhcsiHajSgEVsjE6e0UbiWs7IywZDGXa1UF88OCg9fzPSuNKKR8fyv
sY4uCvsO6v8s5dJgxKpt63lAYVTPzeqxCY13pRLS/5qC07Fz6v00DQ9mgEHl
AIWQzRbKFeY0Knd8+Bw2RKGC010ntqCx1ZZTO/yOQvz6Ny4vhTTut8Yajo5S
EDokyZ9Y0bARzR+/JKdQVJVVWyCikZ13pmevgoIXN9LU/zsaXls608fHKRxa
wrC/Y03jfPO28CtfKSi19/Vk2NBQsvjqdmSKwutf3i/x/J6GODvHyHWagp63
k4uSLY0muWBiZoZCtX2fimTW/wPzjw5d
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 10.}, {0, 11.413639269777944`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6715222044348583`*^9, 3.671526919054084*^9, 3.6715269623980694`*^9, {
   3.671527477703701*^9, 3.6715274978082943`*^9}, 3.671543021040187*^9, 
   3.6715441072128105`*^9, 3.671544226945382*^9, 3.6715445295353923`*^9, {
   3.671544643528274*^9, 3.671544646106535*^9}, 3.671596093411829*^9, {
   3.6716119028713975`*^9, 3.671611915832062*^9}, {3.6716120234325137`*^9, 
   3.671612054606262*^9}, {3.6716134222225056`*^9, 3.6716134519360075`*^9}, 
   3.671633643790695*^9, {3.6716865481155186`*^9, 3.671686559445752*^9}, 
   3.671686618030754*^9, 3.6716920491672955`*^9, 3.6716939357797394`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["A k\[EAcute]t m\[OAcute]dszer k\[ODoubleDot]z\[ODoubleDot]tti k\
\[UDoubleDot]l\[ODoubleDot]nbs\[EAcute]g \[AAcute]br\[AAcute]zol\[AAcute]sa", \
"Subsubsection",
 CellChangeTimes->{{3.671527582961762*^9, 3.671527597378312*^9}}],

Cell["\<\
Az \[AAcute]br\[AAcute]n l\[AAcute]that\[OAcute], hogy a jav\[IAcute]tott \
Euler-m\[OAcute]dszer sokkal jobban k\[ODoubleDot]zel\[IAcute]ti az eredeti f\
\[UDoubleDot]ggv\[EAcute]nyt.\
\>", "Text",
 CellChangeTimes->{{3.6716128364078054`*^9, 3.6716128664770765`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"MyEuler", "[", 
    RowBox[{"kezdet_", ",", "veg_", ",", "kezdetiertek_", ",", "lepesszam_"}],
     "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", "kezdet"}], ",", 
       RowBox[{"b", "=", "veg"}], ",", "j", ",", 
       RowBox[{"m", "=", "lepesszam"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"h", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "-", "a"}], ")"}], "/", "m"}]}], ";", 
      RowBox[{"V", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"a", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "-", "1"}], ")"}], " ", "h"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", 
           RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"W", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"kezdetiertek", ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", 
           RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "\[LessEqual]", "m"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"W", "[", 
           RowBox[{"[", 
            RowBox[{"j", "+", "1"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"W", "[", 
            RowBox[{"[", "j", "]"}], "]"}], "+", 
           RowBox[{"h", " ", 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"V", "[", 
               RowBox[{"[", "j", "]"}], "]"}], ",", 
              RowBox[{"W", "[", 
               RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}]}], ";"}]}], "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{"V", ",", "W"}], "}"}]}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MyEuler2", "[", 
    RowBox[{"kezdet_", ",", "veg_", ",", "kezdetiertek_", ",", "lepesszam_"}],
     "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", "kezdet"}], ",", 
       RowBox[{"b", "=", "veg"}], ",", "j", ",", 
       RowBox[{"m", "=", "lepesszam"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"h", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "-", "a"}], ")"}], "/", "m"}]}], ";", 
      RowBox[{"V", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"a", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "-", "1"}], ")"}], " ", "h"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", 
           RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"W", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"kezdetiertek", ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", 
           RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "\[LessEqual]", "m"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"W", "[", 
           RowBox[{"[", 
            RowBox[{"j", "+", "1"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"W", "[", 
            RowBox[{"[", "j", "]"}], "]"}], "+", 
           RowBox[{"h", "*", " ", 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"V", "[", 
                RowBox[{"[", "j", "]"}], "]"}], "+", 
               RowBox[{"h", "/", "2"}]}], ",", 
              RowBox[{
               RowBox[{"W", "[", 
                RowBox[{"[", "j", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"h", "/", "2"}], "*", 
                RowBox[{"f", "[", 
                 RowBox[{
                  RowBox[{"V", "[", 
                   RowBox[{"[", "j", "]"}], "]"}], ",", 
                  RowBox[{"W", "[", 
                   RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}]}], "]"}]}]}]}],
          ";"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{"V", ",", "W"}], "}"}]}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Show", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"nsol", "[", "t", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "12"}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"MyEuler", "[", 
          RowBox[{"0.0", ",", "10.0", ",", "1", ",", "k"}], "]"}], ",", 
         RowBox[{"MyEuler2", "[", 
          RowBox[{"0.0", ",", "10.0", ",", "1", ",", "k"}], "]"}]}], "}"}], 
       ",", 
       RowBox[{"MeshStyle", "\[Rule]", "Red"}], ",", 
       RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
       RowBox[{"Frame", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Pink", ",", "Blue"}], "}"}]}]}], "]"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "k", ",", "5", ",", "\"\<l\[EAcute]p\[EAcute]ssz\[AAcute]m\>\""}], 
      "}"}], ",", "1", ",", "10", ",", "1"}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6715280072905493`*^9, 3.671528009501023*^9}, {
  3.671596151232486*^9, 3.6715961550220275`*^9}, {3.671612117314692*^9, 
  3.671612189177598*^9}, {3.6716122510569725`*^9, 3.67161226958153*^9}, {
  3.671612306101937*^9, 3.671612442071231*^9}, {3.6716124978116693`*^9, 
  3.6716125901104403`*^9}, {3.6716126307994533`*^9, 3.671612750462381*^9}, {
  3.6716127850625277`*^9, 3.6716128247650223`*^9}, {3.6716938124707665`*^9, 
  3.6716938867779884`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`k$$], 5, "l\[EAcute]p\[EAcute]ssz\[AAcute]m"}, 1, 10,
       1}}, Typeset`size$$ = {432., {140., 147.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`k$35420$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`k$$ = 5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$35420$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Plot[
         $CellContext`nsol[$CellContext`t], {$CellContext`t, 0, 10}, 
         PlotRange -> {0, 12}, PlotStyle -> Red], 
        ListLinePlot[{
          $CellContext`MyEuler[0., 10., 1, $CellContext`k$$], 
          $CellContext`MyEuler2[0., 10., 1, $CellContext`k$$]}, MeshStyle -> 
         Red, Mesh -> All, Frame -> True, PlotStyle -> {Pink, Blue}]], 
      "Specifications" :> {{{$CellContext`k$$, 5, 
          "l\[EAcute]p\[EAcute]ssz\[AAcute]m"}, 1, 10, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{489., {193., 200.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`nsol[
         Pattern[$CellContext`t, 
          Blank[]]] = 
       InterpolatingFunction[{{0., 10.}}, {
         5, 7, 1, {66}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
          False}, CompressedData["
1:eJwBIQLe/SFib1JlAgAAAAEAAABCAAAAAAAAAAAAAADoGdphr9I6P+gZ2mGv
0ko/augtiSDGiD+bFx8Oi++XP4Cd0+sCvqE/YsWPDTPJoT9D7UsvY9ShPyQV
CFGT36E/Bj3EcsPqoT/nZICU8/WhP6m0+NdTDKI/bARxG7Qioj8uVOleFDmi
P8hxnAHXGKM/YY9PpJn4oz/6rAJHXNikP5PKtekeuKU/jvK0RLl1rj9FDdrP
qZmzP0OhWf12+Lc/QDXZKkRXvD/JDr4Vxp/KP3nBBwv1idM/jXswCwfE2T+h
NVkLGf7fP9v3wIUVHOM/RX8EcI+t5z+vBkhaCT/sPw3HRaJBaPA/wopnl/6w
8j93TomMu/n0PywSq4F4Qvc/MXh3Lit1+j823kPb3af9Px0iCERIbQBAIFVu
mqEGAkAiiNTw+p8DQCW7OkdUOQVAJ+6gna3SBkCKHJ+j0bUIQOxKnan1mApA
T3mbrxl8DECyp5m1PV8OQArry90wIRBAOwLL4MISEUBtGcrjVAQSQJ4wyebm
9RJAqrfy4RoiFEC1PhzdTk4VQMHFRdiCehZAzExv07amF0DY05jO6tIYQONa
wske/xlA7+HrxFIrG0D7aBXAhlccQAbwPru6gx1AEndotu6vHkAd/pGxItwf
QJTCXVYrhCBAbjYUM6RFIUA4aBGvn+UhQAKaDiubhSJAzcsLp5YlI0Dm5YVT
y5IjQAAAAAAAACRA8dbvYg==
         "], {
         Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 
          22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 
          56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 
          90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 
          118, 120, 122, 124, 126, 128, 130, 132}, CompressedData["
1:eJw1z2kwnHccwHHsOoIhKFm2iHPrWMaopI71+yM1kVA3xbqHODZlEUbrvgap
lrgiDZqsBElNko01U9quZiVRUZrWjjqe3Q3ijOzj3lRUnzf9vvu8/JokZAQl
ycvJyVXI/R8ObIbqNCcTg7f8wuynhDP4vnVSNgY/0n+Q1srjQI409HfNxkDj
9amuGT0cwib3SAqtGNzpbj/raYvDGQtn8sYgBsXJ8oIRDxwiSuif74swoA30
1bwl3KXrGeAmxqBKMhRA8cSh2OLF+TLCAcs2FE/CLxyEHqOEXUaPxOmE+S5x
rhoSDGRVDj3NhK8jllMI4WA+03mN8DQz0VpCGDI1x928cOClxpiwXmEQ2+kT
V084Ny3aQEZY4v+waMobh7/odl6ZKxj0tH94Rv8CDid2G5zW3mBwO6+rKsYP
h372t1sJ2xjsLEVndgXgEJ5Pz8MOMDBdd/ymhI2DRWWb0p92IgjMMVu4fo34
T1vO0U0WQUZP0pPNxzj8QrKa7W4XATnVr7JYiINEKPatEYqg9YRQntW2BXG0
OfGeugQ0ow2Go5K2wb1cnOfQLwEvP7uWOucd+CBOyzo/7hU4Vc+FIL1dSCDT
Wse0FmCmk9HEPdwF7aPFFaPRBbC6cfm3x8x9sJMv43XMLwJ/Xav85csD6Go6
1dB0uAT96VzSaNQ7iKD0LN43X4bJ0JZa38N/QDBsfycrfAXKMFtNtUfvIdRc
RxDWuArt418tcQr/BauJoHHO9Bp037q5ctwkh6I8ZbH29zbAxu1Y+ruCAjo2
o1bxqjehIM1YcbiahJ6d9FcYy5DC3bVLV6xpiqjUbdid24dDb2S+sbVICTG8
8rlszhYwS7WPbvapIMUH1I7alm1Q4TJDqM2q6Du3hq/NK3bARmPVlr2tjpy6
s7rDGnZBeYRhdO0LTRTmsGQQX7cHF4TSp40kLZSTUsTazNoHaax+VjtTG50l
Sb4XuB1AdGBvaMewDqplcdQUlw9gO/iSTw1dF/VkXI1ISZPB/NSEu94tPZTD
SPXMeiYDXlfVwiSFggo+FurePZABZUYp/P6mPop8jqptCffyXOPf86motpL6
UT1XBi6aY/FztYaopW3j6oCtDEYSOR4PfYyR3uUYQ/P0A5gInhy0LziN/hA8
Ny2/sg+Ce4lBAz4mKKEu9ydy6B6cm/Niq6ibonFGAOmRzi7IR64qmz4xRQmD
YqehoW1oNrS2jk43Q9qppfSNsC1IFdXPpiubo4xCHT3/eSnUsGcdP2sxRzJH
1vmL2ptAZoiCvSkW6PTf4faFzHX49GJ3ekWfBSoZVz7iqa3AjcAo5G1giT7Z
zZ6nFi0BdeBX3s9fWqLJnnMpnSYLIKvI9VmZtESZRsnh3ltiKJ9qzDxJpiG5
2xWCd84YvM4fVB12pKEHb0rtWNxZ+A/zy/i/
          "]}, {Automatic}][$CellContext`t], $CellContext`MyEuler[
         Pattern[$CellContext`kezdet, 
          Blank[]], 
         Pattern[$CellContext`veg, 
          Blank[]], 
         Pattern[$CellContext`kezdetiertek, 
          Blank[]], 
         Pattern[$CellContext`lepesszam, 
          Blank[]]] := 
       Module[{$CellContext`a = $CellContext`kezdet, $CellContext`b = \
$CellContext`veg, $CellContext`j, $CellContext`m = $CellContext`lepesszam}, \
$CellContext`h = ($CellContext`b - $CellContext`a)/$CellContext`m; \
$CellContext`V = 
          Table[$CellContext`a + ($CellContext`j - 
              1) $CellContext`h, {$CellContext`j, 1, $CellContext`m + 
             1}]; $CellContext`W = 
          Table[$CellContext`kezdetiertek, {$CellContext`j, 1, $CellContext`m + 
             1}]; For[$CellContext`j = 1, $CellContext`j <= $CellContext`m, 
           Increment[$CellContext`j], 
           Part[$CellContext`W, $CellContext`j + 1] = 
            Part[$CellContext`W, $CellContext`j] + $CellContext`h \
$CellContext`f[
                Part[$CellContext`V, $CellContext`j], 
                Part[$CellContext`W, $CellContext`j]]; Null]; 
         Transpose[{$CellContext`V, $CellContext`W}]], $CellContext`a = 
       1, $CellContext`b = 2, $CellContext`h = 
       0.6666666666666666, $CellContext`V = {0., 0.6666666666666666, 
        1.3333333333333333`, 2., 2.6666666666666665`, 3.333333333333333, 4., 
        4.666666666666666, 5.333333333333333, 6., 6.666666666666666, 
        7.333333333333333, 8., 8.666666666666666, 9.333333333333332, 
        10.}, $CellContext`W = {
        1, 1.348973037037037, 1.8014574322080985`, 2.3746106026142177`, 
         3.079300309061859, 3.9142960532995126`, 4.860947400542846, 
         5.881303705955172, 6.922367773440824, 7.926450955613117, 
         8.843723380512685, 9.64139628379348, 10.306285776454306`, 
         10.841555230865675`, 11.260785504916889`, 
         11.582259980417627`}, $CellContext`f[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`x, 
          Blank[]]] = 
       0.5 $CellContext`x - 0.04 $CellContext`x^2, $CellContext`MyEuler2[
         Pattern[$CellContext`kezdet, 
          Blank[]], 
         Pattern[$CellContext`veg, 
          Blank[]], 
         Pattern[$CellContext`kezdetiertek, 
          Blank[]], 
         Pattern[$CellContext`lepesszam, 
          Blank[]]] := 
       Module[{$CellContext`a = $CellContext`kezdet, $CellContext`b = \
$CellContext`veg, $CellContext`j, $CellContext`m = $CellContext`lepesszam}, \
$CellContext`h = ($CellContext`b - $CellContext`a)/$CellContext`m; \
$CellContext`V = 
          Table[$CellContext`a + ($CellContext`j - 
              1) $CellContext`h, {$CellContext`j, 1, $CellContext`m + 
             1}]; $CellContext`W = 
          Table[$CellContext`kezdetiertek, {$CellContext`j, 1, $CellContext`m + 
             1}]; For[$CellContext`j = 1, $CellContext`j <= $CellContext`m, 
           Increment[$CellContext`j], 
           Part[$CellContext`W, $CellContext`j + 1] = 
            Part[$CellContext`W, $CellContext`j] + $CellContext`h \
$CellContext`f[
               Part[$CellContext`V, $CellContext`j] + $CellContext`h/2, 
                Part[$CellContext`W, $CellContext`j] + ($CellContext`h/
                  2) $CellContext`f[
                   Part[$CellContext`V, $CellContext`j], 
                   Part[$CellContext`W, $CellContext`j]]]; Null]; 
         Transpose[{$CellContext`V, $CellContext`W}]]}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.671612274968128*^9, {3.671612325737059*^9, 3.6716124430258684`*^9}, {
   3.6716125153694043`*^9, 3.671612591251211*^9}, {3.6716126421890616`*^9, 
   3.6716126884481554`*^9}, {3.6716127349527173`*^9, 
   3.6716127513539753`*^9}, {3.671612809681985*^9, 3.671612825718665*^9}, 
   3.6716134222625327`*^9, 3.6716134580901237`*^9, 3.6716336438757524`*^9, {
   3.6716865482085776`*^9, 3.671686559526806*^9}, 3.671686618250901*^9, 
   3.671692049218329*^9, {3.671693868436542*^9, 3.6716938873863926`*^9}}]
}, {2}]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["A k\[ODoubleDot]zel\[IAcute]t\[EAcute]s \
hib\[AAcute]ja",
 FontFamily->"Gill Sans MT",
 FontColor->RGBColor[1., 0.5019607843137255, 0.]]], "Subsection",
 CellChangeTimes->{{3.671196003513359*^9, 3.6711960075200367`*^9}}],

Cell[TextData[{
 StyleBox["Defin\[IAcute]ci\[OAcute]:",
  FontWeight->"Bold"],
 " Az Euler-m\[OAcute]dszer k\[EAcute]plethib\[AAcute]j\[AAcute]nak vagy lok\
\[AAcute]lis hib\[AAcute]j\[AAcute]nak h\[IAcute]vjuk a k\[ODoubleDot]vetkez\
\[OTilde] mennyis\[EAcute]get: \n\n                                           \
       ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", "k"], TraditionalForm]]],
 StyleBox[" := ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     RowBox[{"x", " ", 
      RowBox[{"(", " ", 
       SubscriptBox["t", 
        RowBox[{"k", "+", "1"}]], " ", ")"}]}], " ", "-", " ", 
     RowBox[{"x", " ", 
      RowBox[{"(", " ", 
       SubscriptBox["t", "k"], " ", ")"}]}]}], "h"], TraditionalForm]]],
 StyleBox[" - f ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]]],
 StyleBox[" , x ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]]],
 StyleBox[" ) ) ,      ",
  FontSlant->"Italic"],
 "            (3)\n\nahol x(t) az x\[CloseCurlyQuote] ( t ) = f ( t , x ( t ) \
) pontos megold\[AAcute]s\[AAcute]t jelenti.\n\nA lok\[AAcute]lis \
hib\[AAcute]t becs\[UDoubleDot]lhess\[UDoubleDot]k \
an\[EAcute]lk\[UDoubleDot]l, hogy ismern\[EAcute]nk a pontos \
megold\[AAcute]st. Alkalmazzuk k\[EAcute]tszer a Lagrange-f\[EAcute]le k\
\[ODoubleDot]z\[EAcute]p\[EAcute]rt\[EAcute]k t\[EAcute]telt.\n\n             \
                                 ",
 StyleBox["    \[VerticalSeparator]",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["g", "k"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" \[VerticalSeparator] = \[VerticalSeparator] x\[CloseCurlyQuote] ( \
",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Xi]", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) - x\[CloseCurlyQuote] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["t", "k"], " ", ")"}], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\[VerticalSeparator] = \[VerticalSeparator] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Tau]", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Xi]", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" - ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) \[VerticalSeparator] \[LessEqual] h max \[VerticalSeparator] x\
\[CloseCurlyDoubleQuote] ( t ) \[VerticalSeparator] ,",
  FontSlant->"Italic"],
 "\n\nahol ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Xi]", "k"], TraditionalForm]]],
 " \[Element] ( ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]]],
 " ,",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["t", 
     RowBox[{"k", "+", "1"}]]}], TraditionalForm]]],
 " ) \[EAcute]s ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Tau]", "k"], TraditionalForm]]],
 " \[Element] ( ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]]],
 " ,",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["\[Xi]", "k"]}], TraditionalForm]]],
 " ) .\n"
}], "Text",
 CellChangeTimes->{{3.671200504619274*^9, 3.671200522470374*^9}, {
  3.671200686194933*^9, 3.671200697283985*^9}, {3.6712016982778735`*^9, 
  3.6712017038736157`*^9}, {3.6712017501691318`*^9, 3.671201763846593*^9}, {
  3.671517673378621*^9, 3.6715178880844855`*^9}, {3.671517949080076*^9, 
  3.6715182488612843`*^9}, {3.6715184359714346`*^9, 3.6715184380473175`*^9}, {
  3.6715185570364623`*^9, 3.6715185893433695`*^9}, {3.6715236327693844`*^9, 
  3.6715236529958982`*^9}, {3.6715260455259686`*^9, 3.671526090351221*^9}, {
  3.6715261331639786`*^9, 3.671526151572816*^9}, {3.6716169995445013`*^9, 
  3.671617029920797*^9}, {3.671617083514025*^9, 3.6716171702703085`*^9}}],

Cell[TextData[{
 StyleBox["Defin\[IAcute]ci\[OAcute]: ",
  FontWeight->"Bold"],
 "A numerikus m\[OAcute]dszert konzisztensnek h\[IAcute]vjuk, ha minden 0 \
\[LessEqual] k \[LessEqual] N -re igaz ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", "k"], TraditionalForm]]],
 " = O ( ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["h", "p"], TraditionalForm]]],
 " ), ahol p > 0. A legnagyobb eg\[EAcute]sz p-t a m\[OAcute]dszer \
konzisztencia rendj\[EAcute]nek nevezz\[UDoubleDot]k. \n\nA lok\[AAcute]lis \
hibabecsl\[EAcute]sb\[ODoubleAcute]l azonnal l\[AAcute]tszik, hogy az Euler-m\
\[OAcute]dszer els\[ODoubleAcute] rendben konzisztens.\n"
}], "Text",
 CellChangeTimes->{{3.6715182642802672`*^9, 3.671518439602354*^9}, {
  3.6716171768297005`*^9, 3.6716171870084953`*^9}}],

Cell[TextData[{
 StyleBox["Defin\[IAcute]ci\[OAcute]:",
  FontWeight->"Bold"],
 " A m\[OAcute]dszer glob\[AAcute]lis hib\[AAcute]j\[AAcute]nak nevezz\
\[UDoubleDot]k a pontos \[EAcute]s a sz\[AAcute]m\[IAcute]tott \[EAcute]rt\
\[EAcute]k k\[UDoubleDot]l\[ODoubleDot]nbs\[EAcute]g\[EAcute]t.\n\n           \
                                      ",
 StyleBox[" ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["e", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" := x ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) - ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["y", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["                 k = 0 , 1 , \[Ellipsis] , N .",
  FontSlant->"Italic"],
 "\n                                                  \nA glob\[AAcute]lis \
hiba becsl\[EAcute]se: Ha (3)-t beszorozzuk h-val \[EAcute]s \
\[AAcute]trendezz\[UDoubleDot]k a k\[ODoubleDot]vetkez\[ODoubleAcute] pontos \
\[EAcute]rt\[EAcute]ket kifejezve kapjuk a \
k\[ODoubleDot]vetkez\[ODoubleAcute] egyenletet:\n \n                          \
                       ",
 StyleBox[" x ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", 
    RowBox[{"k", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) = x ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) + h f ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" , x ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ) + h ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" .",
  FontSlant->"Italic"],
 "\n                                                  \nEbb\[ODoubleAcute]l \
kell kivonni a k\[ODoubleDot]zel\[IAcute]t\[ODoubleAcute] \
\[EAcute]rt\[EAcute]kkel kapott megold\[AAcute]st:\n \n                       \
                           ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    RowBox[{"k", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 " ",
 StyleBox["+ h f ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 " ",
 StyleBox[", ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["y", "k"], " ", ")"}], " ", "."}], TraditionalForm]],
  FontSlant->"Italic"],
 "\n \nVagyis ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["e", 
    RowBox[{"k", "+", "1"}]], TraditionalForm]]],
 " -re azt kapjuk, hogy \n  \n                                                \
 ",
 StyleBox[" ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["e", 
    RowBox[{"k", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["e", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h ( f ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 " ",
 StyleBox[", ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"x", " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 " ",
 StyleBox[") ) - f ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 " ",
 StyleBox[", ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["y", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 " ",
 StyleBox[") ) + h ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 " ",
 StyleBox[".",
  FontSlant->"Italic"],
 "\n  \nKihaszn\[AAcute]lva, hogy f Lipschitz-folytonos a m\[AAcute]sodik v\
\[AAcute]ltoz\[OAcute]j\[AAcute]ban, kapjuk a k\[ODoubleDot]vetkez\
\[ODoubleAcute] becsl\[EAcute]st:\n  \n                                       \
           ",
 StyleBox["\[VerticalSeparator] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["e", 
     RowBox[{"k", "+", "1"}]]}], TraditionalForm]],
  FontSlant->"Italic"],
 " ",
 StyleBox["\[VerticalSeparator]  \[LessEqual] \[VerticalSeparator] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["e", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 " ",
 StyleBox["\[VerticalSeparator] + h ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["L", "f"], TraditionalForm]],
  FontSlant->"Italic"],
 " ",
 StyleBox["\[VerticalSeparator] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["e", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 " ",
 StyleBox["\[VerticalSeparator] + h \[VerticalSeparator] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 " ",
 StyleBox["\[VerticalSeparator] = ( 1 + h ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["L", "f"], TraditionalForm]],
  FontSlant->"Italic"],
 " ",
 StyleBox[") \[VerticalSeparator] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["e", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 " ",
 StyleBox["\[VerticalSeparator] + h \[VerticalSeparator]",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["g", 
     RowBox[{"k", " "}]]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\[VerticalSeparator] .",
  FontSlant->"Italic"],
 "\n                                                  \nEzt tov\[AAcute]bb \
becs\[UDoubleDot]lve:\n  \n                                              ",
 StyleBox["    \[VerticalSeparator]",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["e", 
     RowBox[{"k", "+", "1"}]]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" \[VerticalSeparator] \[LessEqual] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", " ", 
     RowBox[{"1", " ", "+", " ", 
      RowBox[{"h", "  ", 
       FormBox[
        RowBox[{
         SubscriptBox["L", "f"], " "}],
        TraditionalForm]}]}], ")"}], 
    RowBox[{" ", "2"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" \[VerticalSeparator] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["e", 
    RowBox[{"k", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" \[VerticalSeparator] + h \[VerticalSeparator] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", "k"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" \[VerticalSeparator] + ( 1 + h ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["L", "f"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) h \[VerticalSeparator] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", 
    RowBox[{"k", "-", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" \[VerticalSeparator] \[LessEqual]\n                               \
                   \[LessEqual] \[Ellipsis] \[LessEqual] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", " ", 
     RowBox[{"1", " ", "+", " ", 
      RowBox[{"h", " ", 
       FormBox[
        RowBox[{" ", 
         SubscriptBox["L", "f"], " "}],
        TraditionalForm]}]}], ")"}], 
    RowBox[{"k", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" \[VerticalSeparator] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["e", "0"], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\[VerticalSeparator] + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"i", "=", "0"}], "k"], " ", 
    SuperscriptBox[
     RowBox[{"(", " ", 
      RowBox[{"1", " ", "+", " ", 
       RowBox[{"h", " ", 
        FormBox[
         RowBox[{" ", 
          SubscriptBox["L", "f"], " "}],
         TraditionalForm]}]}], ")"}], 
     RowBox[{"k", "-", "i"}]]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" h \[VerticalSeparator] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", "i"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" \[VerticalSeparator] \[LessEqual]\n                               \
                   \[LessEqual] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"h", " ", 
       FormBox[
        SubscriptBox["L", "f"],
        TraditionalForm]}]}], ")"}], 
    RowBox[{"k", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ( \[VerticalSeparator] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["e", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" \[VerticalSeparator] + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "0"}], "k"], " ", "h"}], "\[VerticalSeparator]", 
    FormBox[
     SubscriptBox["g", "i"],
     TraditionalForm], "\[VerticalSeparator]"}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[").",
  FontSlant->"Italic"],
 "\n                                                 \nAz ( 1 + h ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["L", "f"], TraditionalForm]]],
 " )-et fel\[UDoubleDot]lr\[ODoubleAcute]l tudjuk becs\[UDoubleDot]lni (",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SuperscriptBox["e", "h"]}], TraditionalForm]]],
 " ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["L", "f"], TraditionalForm]]],
 " )-el az ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", "h"], TraditionalForm]]],
 " Taylor sorfejt\[EAcute]sb\[ODoubleAcute]l ad\[OAcute]d\[OAcute]an, \
\[IAcute]gy\n                                                 ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", " ", 
      RowBox[{"1", " ", "+", " ", 
       RowBox[{"h", " ", 
        FormBox[
         RowBox[{" ", 
          SubscriptBox["L", "f"]}],
         TraditionalForm]}]}], " ", ")"}], 
     RowBox[{"k", "+", "1"}]], "  "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\[LessEqual] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", 
    RowBox[{"\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"k", " ", "+", " ", "1"}], " ", ")"}], " ", "h", " ", 
      SubscriptBox["L", "f"]}]}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" \[LessEqual] ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", 
    RowBox[{"\[IndentingNewLine]", 
     RowBox[{"N", " ", "h", " ", 
      SubscriptBox["L", "f"]}]}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[".",
  FontSlant->"Italic"],
 "\nNh pedig pont az intervallumunk hossza, ami jelen esetben 1. \
Ez\[AAcute]ltal ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", 
    RowBox[{"\[IndentingNewLine]", 
     SubscriptBox["L", "f"]}]], TraditionalForm]]],
 " -et kapjuk, ami egy r\[ODoubleDot]gz\[IAcute]tett konstans. \n             \
                       "
}], "Text",
 CellChangeTimes->{{3.67151844357502*^9, 3.6715190783703446`*^9}, {
   3.671519111925597*^9, 3.6715195641831408`*^9}, {3.6715201193745804`*^9, 
   3.671520256629053*^9}, {3.671524124522812*^9, 3.671524129695275*^9}, {
   3.671525716461254*^9, 3.6715257646532583`*^9}, {3.671525820958293*^9, 
   3.6715260271823807`*^9}, {3.6715260978312244`*^9, 3.671526115816237*^9}, {
   3.6715261597562895`*^9, 3.671526244451644*^9}, 3.671617036194993*^9, {
   3.671617198846414*^9, 3.6716172436723733`*^9}, {3.6716173054276447`*^9, 
   3.6716175749268427`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["P\[EAcute]ld\[AAcute]k",
 FontFamily->"Gill Sans MT",
 FontColor->RGBColor[1., 0.5019607843137255, 0.]]], "Subsection",
 CellChangeTimes->{{3.671196013585089*^9, 3.671196014806907*^9}}],

Cell["A p\[EAcute]ld\[AAcute]kban a \
k\[ODoubleDot]z\[ODoubleDot]ns\[EAcute]ges Euler-m\[OAcute]dszert fogjuk \
alkalmazni.", "Text",
 CellChangeTimes->{{3.6716131663561163`*^9, 3.671613182677023*^9}}],

Cell[CellGroupData[{

Cell["1.", "Subsubsection",
 CellChangeTimes->{{3.6715293570297236`*^9, 3.671529386630516*^9}}],

Cell["\<\
Tekints\[UDoubleDot]k az    x\[CloseCurlyQuote] = x ,   x ( 0 ) = 1   kezdeti\
\[EAcute]rt\[EAcute]k-probl\[EAcute]m\[AAcute]t, \[EAcute]s alkalmazzuk az \
Euler-m\[OAcute]dszert. Osszuk be a [ 0 , T ] intervallumot n egyenl\
\[ODoubleAcute] r\[EAcute]szre \[EAcute]s v\[EAcute]gezz\[UDoubleDot]k el a \
sz\[AAcute]m\[IAcute]t\[AAcute]sokat:\
\>", "Text",
 CellChangeTimes->{{3.6715294247665467`*^9, 3.671529573863161*^9}, {
  3.6716176305269966`*^9, 3.671617642847231*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Phi]", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ( t ) := 1 + t         ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"(", " ", 
    RowBox[{"0", " ", "\[LessEqual]", " ", "t", " ", "\[LessEqual]", "  ", 
     FractionBox["T", "n"]}], " ", ")"}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[",    ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Phi]", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["T", "n"], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[") = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"1", " ", "+", " ", 
    FractionBox["T", "n"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\n",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Phi]", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ( t ) := (",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"1", " ", "+", " ", 
     FractionBox["T", "n"], " "}]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[") + ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"1", " ", "+", " ", 
    FractionBox["T", "n"], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[") ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"t", " ", "-", " ", 
    FractionBox["T", "n"], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[")       ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["T", "n"], " ", "<", " ", "t", " ", "\[LessEqual]"}], 
   TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{"2", "T"}], "n"], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["),    ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Phi]", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"2", "T"}], "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) := ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", " ", 
     FormBox[
      RowBox[{"1", " ", "+", " ", 
       FractionBox["T", "n"], " "}],
      TraditionalForm], ")"}], "2"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\n          \[VerticalEllipsis]\n ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Phi]", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox["t", TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) := ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     FormBox[
      RowBox[{" ", 
       RowBox[{"1", " ", "+", " ", 
        FractionBox["T", "n"], " "}]}],
      TraditionalForm], ")"}], 
    RowBox[{"k", " ", "-", " ", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", " ", 
     FormBox[
      RowBox[{"1", " ", "+", " ", 
       FractionBox["T", "n"], " "}],
      TraditionalForm], ")"}], 
    RowBox[{"k", " ", "-", " ", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"t", " ", "-", " ", 
    FractionBox[
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"k", " ", "-", " ", "1"}], " ", ")"}], "  ", "T"}], "n"]}], 
   TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) , ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{"k", " ", "-", " ", "1"}], " ", ")"}], " ", "T"}], "n"], 
   TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" <  t  <  ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{"k", " ", "T"}], "n"], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[") ,\n ",
  FontSlant->"Italic"],
 "\n vagyis ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Phi]", "n"], TraditionalForm]]],
 " (",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    FractionBox[
     RowBox[{"k", " ", "T"}], "n"], " "}], TraditionalForm]]],
 ") = ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", " ", 
     FormBox[
      RowBox[{"1", " ", "+", " ", 
       FractionBox["T", "n"], " "}],
      TraditionalForm], ")"}], "k"], TraditionalForm]]],
 ", \[EAcute]s \[IAcute]gy ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Phi]", "n"], TraditionalForm]]],
 " ( ",
 Cell[BoxData[
  FormBox[
   RowBox[{"T", " "}], TraditionalForm]]],
 ") := ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", " ", 
     FormBox[
      RowBox[{"1", " ", "+", " ", 
       FractionBox["T", "n"], " "}],
      TraditionalForm], ")"}], "n"], TraditionalForm]]],
 " . Ha n \[RightArrow] \[Infinity] , akkor a k\[ODoubleDot]zel\[IAcute]t\
\[EAcute]s a pontos megold\[AAcute]shoz tart, vagyis ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     FormBox[
      RowBox[{" ", 
       RowBox[{"1", " ", "+", " ", 
        FractionBox["T", "n"], " "}]}],
      TraditionalForm], ")"}], "n"], TraditionalForm]]],
 " \[RightArrow] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", "T"], TraditionalForm]]],
 " . Visszat\[EAcute]rve a szok\[AAcute]sos jel\[ODoubleDot]l\[EAcute]sre, \
kapjuk a ",
 Cell[BoxData[
  FormBox[
   RowBox[{"t", " ", "\[RightTeeArrow]", " ", 
    SuperscriptBox["e", "t"]}], TraditionalForm]]],
 " f\[UDoubleDot]ggv\[EAcute]nynek a\n \n                                     \
   ",
 StyleBox[" ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", "t"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   UnderscriptBox["lim", 
    RowBox[{"n", " ", "\[Rule]", " ", "\[Infinity]"}]], TraditionalForm]],
  CellChangeTimes->{{3.6650493314934626`*^9, 3.665049435452771*^9}, {
    3.665049503819008*^9, 3.6650495203337593`*^9}, {3.6650495694772525`*^9, 
    3.6650495763031197`*^9}, {3.665049622794079*^9, 3.665049658404893*^9}, {
    3.665049729305155*^9, 3.6650497293071566`*^9}, {3.6650497706006126`*^9, 
    3.66504978569236*^9}, {3.6650498174683795`*^9, 3.665049854672305*^9}, {
    3.6650498959157515`*^9, 3.665050004936242*^9}, 3.6650500400674276`*^9, {
    3.665050073177121*^9, 3.6650500757669597`*^9}, {3.6650514060756927`*^9, 
    3.665051408785618*^9}, {3.665071669147652*^9, 3.6650716702254176`*^9}, {
    3.6651495645130887`*^9, 3.6651495715182548`*^9}, 3.665240981029683*^9},
  FontSlant->"Italic"],
 StyleBox[" ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", " ", 
     FormBox[
      RowBox[{"1", " ", "+", " ", 
       FractionBox["t", "n"], " "}],
      TraditionalForm], ")"}], "n"], TraditionalForm]],
  FontSlant->"Italic"],
 "\n                          \nel\[ODoubleAcute]\[AAcute]ll\[IAcute]t\
\[AAcute]s\[AAcute]t. Speci\[AAcute]lisan, t = 1 -re \n \n                    \
                     ",
 StyleBox["e = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   UnderscriptBox["lim", 
    RowBox[{"n", " ", "\[Rule]", " ", "\[Infinity]"}]], TraditionalForm]],
  CellChangeTimes->{{3.6650493314934626`*^9, 3.665049435452771*^9}, {
    3.665049503819008*^9, 3.6650495203337593`*^9}, {3.6650495694772525`*^9, 
    3.6650495763031197`*^9}, {3.665049622794079*^9, 3.665049658404893*^9}, {
    3.665049729305155*^9, 3.6650497293071566`*^9}, {3.6650497706006126`*^9, 
    3.66504978569236*^9}, {3.6650498174683795`*^9, 3.665049854672305*^9}, {
    3.6650498959157515`*^9, 3.665050004936242*^9}, 3.6650500400674276`*^9, {
    3.665050073177121*^9, 3.6650500757669597`*^9}, {3.6650514060756927`*^9, 
    3.665051408785618*^9}, {3.665071669147652*^9, 3.6650716702254176`*^9}, {
    3.6651495645130887`*^9, 3.6651495715182548`*^9}, 3.665240981029683*^9},
  FontSlant->"Italic"],
 StyleBox[" ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     FormBox[
      RowBox[{" ", 
       RowBox[{"1", " ", "+", " ", 
        FractionBox["1", "n"], " "}]}],
      TraditionalForm], ")"}], "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ,",
  FontSlant->"Italic"],
 "\n                                        \nami egy nevezetes hat\[AAcute]r\
\[EAcute]rt\[EAcute]k, \[UAcute]gy szoktuk h\[IAcute]vni: ,,a \
term\[EAcute]szetes alap\[CloseCurlyDoubleQuote]. Mi ebben a \
term\[EAcute]szetes? Semmi esetre sem az \[ODoubleAcute]t el\[ODoubleAcute]\
\[AAcute]ll\[IAcute]t\[OAcute] formula jobb oldal\[AAcute]n l\[EAcute]v\
\[ODoubleAcute] hat\[AAcute]r\[EAcute]ert\[EAcute]k. \[IAcute]gy az elnevez\
\[EAcute]s biztosan nem ebb\[ODoubleAcute]l az el\[ODoubleAcute]\[AAcute]ll\
\[IAcute]t\[AAcute]sb\[OAcute]l ered."
}], "Text",
 CellChangeTimes->{{3.6715297263816323`*^9, 3.671530144961406*^9}, {
  3.6715301823484*^9, 3.671530667097062*^9}, {3.6715307471496396`*^9, 
  3.671530870216375*^9}, {3.6715309010302086`*^9, 3.671530945562971*^9}, {
  3.671531020529578*^9, 3.6715310637744827`*^9}, {3.67153109528405*^9, 
  3.6715312636248083`*^9}, {3.6715312970995455`*^9, 3.671531311362282*^9}, {
  3.671538619874592*^9, 3.6715386229997845`*^9}, {3.671617649395609*^9, 
  3.671617985109048*^9}}],

Cell["\<\

\[CapitalAAcute]br\[AAcute]zoljuk a f\[UDoubleDot]ggv\[EAcute]nyt \[EAcute]s \
a k\[ODoubleDot]zel\[IAcute]t\[EAcute]s\[EAcute]t:\
\>", "Text",
 CellChangeTimes->{{3.671544436362109*^9, 3.6715444517585087`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", "x"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pts", "=", 
   RowBox[{"MyEuler", "[", 
    RowBox[{"0.0", ",", "1.0", ",", "1", ",", "2.72"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"nsol", "[", "t_", "]"}], "=", 
   RowBox[{"NDSolveValue", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{"x", "[", "t", "]"}]}], ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2.72"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{"pts", ",", 
     RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", "Orange"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Pink"}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nsol", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2.72"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.671544353743477*^9, 3.671544424935599*^9}, 
   3.6716134803840294`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    GraphicsComplexBox[{{0., 1.}, {0.3676470588235294, 1.3676470588235294`}, {
     0.7352941176470588, 1.8704584775086506`}}, {{{}, {}, 
       {RGBColor[1, 0.5, 0.5], PointSize[0.019444444444444445`], 
        AbsoluteThickness[1.6], LineBox[{1, 2, 3}]}}, {
       {RGBColor[1, 0.5, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
        PointBox[{1, 2, 3}]}, {}, {}}}], {}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwV0vk71AkcwPEZfN0VMtgolGt2ZyZaRxGfT48tRbZiRj3EOlIZZD1p2pZo
1fAwXVSeVHRgpidaI0msaD1K0qzcumTImdXcg6htf3g/r3/gbRudFBSrQSKR
Ar/1v6m3eyt8RYk+sptjS0kkCUS/KibFhASAQZK3S7ymBGozzPc7hoSBIj5d
p19bAuKu7st6IfFwbMXwqHCJBDgLLvfmWakQXrk+IdFSApuMxT5yFg9oBree
6nlIgH91PfcT6ypkoG39y0MSeBW57/a/rHJ4b0sV3xiSgHXBDi3vtAbgr7nb
ZDYsBfW+p03G1CdQcaN0cdeQDEI7j4v8pO1gtCXoje+4HHLla0nB/E7IvLOo
X22qhBnpQdr3lF4wppgnUnxUsPiTR/wl0QDMRJpljuarwZ9sYnIr5S3E3XRq
ZipnYVXV/fa+t+8hUBeiKoPm4Z9QVfuOVjF02C0PsB35DJ0hHK9nJ0ag1Jp8
jX1oEQ5nL0TkuYzC5Z47/U46X4EdLeLZ6YxDirCAN5JIQnsPjeaARxNATcxm
q5lkdHvwB9n78hSkVtgzO8I18EOcjjKdPQ3PHQrtGMmauNtcKmWunAGhtvbZ
zBNaaJ1kP6tQfIIC50snc2sJZA0NnrzYJwGZtElwZEobN0fsPL/8iRT0W/X2
rPXXRa6qReVZKYPu58dpmg/1kM/7GFWRI4eOsWvud20MUH6ktjOTo4BUliLG
qNEQbcPdtpQEK4Hq0hPnEbIUiyMemCbQVGAnsiCCFpahX83b8UJzNey0GJVb
SYywU7emyViuhkN7uhWtg8aYVbXu2szQLLgH0Rx2SUyQl1Lddfj5HKj1I2P/
NjTFZNexJb6l8zAV5Smm2FMwc1tj4NHzn0GnKuINe78ZcsK25isTFiAt9pNN
Xok51mX3OlttXoRQ+2CTjI8W6KCn2yNY+wUKvQOupsSsQE72dOpx/a9w0PDl
tEufJUpCOU4P1V8hUNnWapmxEvmUVwnFbBJ2LOPm1a+2xoXc32Su/SSs4QVo
RbFtcPwOe35xOxnFzxI2OsTYom9bjdZ0PRldokh1V/asRtf84DzDdRrIzOUI
PiSvwcAJmT9ZoIFlVdfDkwvssH/jR21LU03sKaEUdj2wR5WX++YDuZpocGSi
KZzsiFkbXnMHZjWxPVxYXunnhD4tGfKVsVror/vhtU0hFXlzR0cuvdZCtyDb
yUXLH3Abva133VYCN3DnrM4U0tDpfYuflT+B1Bd3/4y5QUPtvMd1xHYCTVId
R7wENGxW1BYN7CAwp3LBTXqfhp4N/Nj03QQOtVHPJr2kIS3glLJtP4GDv8dF
/qVDR6M4oERxCaSdZAbkH6XjzAqvbP9sAp0FPrNF6XR88cJ97sccAmucUpnl
XDrmODPeaZ8hcG44zar9Ah01Zq3KKi4S6MgrVq4S0lGRNe86W0KgKNLNzmKS
jl3rVXxxGYFFSpbSR0JH4ZTUol1A4L3oZWkH1HRM/HlyoaicwLB9g+WPCAaO
UQZafKsJTNk7cT19NQNbWrvd6TUEeuq3O1VTGXjrWMdts2+f80Vx7ElnBv7y
7unpyXoC17gmfhcGDPQ51/ylq4HA0/wr2QVbGGi1qfHXhkYC/UQUYXcgA+dl
dcNljwkkjHwvmLAYOFBawzzXTGByX5ZL8F4G/geD+jQ/
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.9564770761245674},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 0.7352941176470588}, {1., 1.8704584775086506`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6715443668618393`*^9, 3.671544425502123*^9}, 
   3.6715445296291466`*^9, 3.671596093492881*^9, 3.6716119029374433`*^9, 
   3.67161342233358*^9, 3.6716134822672844`*^9, 3.67161355930145*^9, 
   3.671633643988828*^9, {3.6716865483276577`*^9, 3.6716865596278744`*^9}, 
   3.6716866183619747`*^9, 3.6716920492873755`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.", "Subsubsection",
 CellChangeTimes->{{3.6715313190063925`*^9, 3.6715313193576236`*^9}}],

Cell[TextData[{
 "Kezdeti\[EAcute]rt\[EAcute]k-probl\[EAcute]ma:  ",
 StyleBox[" x\[CloseCurlyQuote] ( t ) = 1 - x ( t ) ,    t \[Element] [ 0 ; 1 \
]\n                                     x ( 0 ) = 1",
  FontSlant->"Italic"],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"h", "=", 
    FractionBox["1", "2"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\nx ( 1 ) = ?",
  FontSlant->"Italic"],
 "\n\nK\[EAcute]sz\[IAcute]ts\[UDoubleDot]k el a [ 0 ; 1 ] intervallum \
feloszt\[AAcute]s\[AAcute]t. ",
 Cell[BoxData[
  FormBox[
   RowBox[{"h", " ", "=", " ", 
    FractionBox["1", "2"], " "}], TraditionalForm]]],
 ", \[IAcute]gy a feloszt\[AAcute]s:   ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]]],
 " = 0 , ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["t", "1"], " ", "=", " ", 
    FractionBox["1", "2"]}], TraditionalForm]]],
 " , ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "2"], TraditionalForm]]],
 " = 1 . \nAz explicit Euler-m\[OAcute]dszer k\[EAcute]plete:  \n\n           \
                                     ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    RowBox[{"n", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h f ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" , ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ,  ( n = 0 , \[Ellipsis] , N - 1 )\n                            \
                    x = x ( 0 ) ,",
  FontSlant->"Italic"],
 "\n                                                \nahol N = 2 , mert k\
\[EAcute]t r\[EAcute]szre osztottuk az intervallumot \[EAcute]s f ( t , x ) = \
1 - x .\n\nA konkr\[EAcute]t p\[EAcute]ld\[AAcute]ra alkalmazva a rekurzi\
\[OAcute]:\n \n                                               ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    RowBox[{"n", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h * ( 1 - ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) = ( 1 - h ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h ,   ( n = 0 , 1 )\n                                           \
    ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = 1 .",
  FontSlant->"Italic"],
 "\n                                               \nMivel \n                 \
                              ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ( 1 - h ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h = ( 1 - h ) + h = 1\n                                         \
      ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "2"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ( 1 - h ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h = ( 1 - h ) + h = 1 ,",
  FontSlant->"Italic"],
 "\n                                               \n\[IAcute]gy ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "2"], TraditionalForm]]],
 " = 1 az x ( 1 ) k\[ODoubleDot]zel\[IAcute]t\[EAcute]se.\n \n\
Kezdeti\[EAcute]rt\[EAcute]k-probl\[EAcute]ma pontos megold\[AAcute]sa: ",
 StyleBox["x ( t ) \[Congruent] 1 \[DoubleRightArrow] x ( 1 ) = 1.  ",
  FontSlant->"Italic"],
 "                                        "
}], "Text",
 CellChangeTimes->{{3.671538494429061*^9, 3.671538596439096*^9}, {
  3.6715386268905797`*^9, 3.6715390984566307`*^9}, {3.6715391301538925`*^9, 
  3.671539376308853*^9}, {3.6715394476372623`*^9, 3.671539474784174*^9}, {
  3.671613664108882*^9, 3.6716138330500593`*^9}, {3.6716141022597933`*^9, 
  3.671614102605023*^9}, {3.6716180632405434`*^9, 3.671618269394271*^9}},
 TextJustification->1.],

Cell["\<\

Ahhoz, hogy a feladatot ellen\[ODoubleAcute]rizz\[UDoubleDot]k, \[AAcute]br\
\[AAcute]zoljuk a f\[UDoubleDot]ggv\[EAcute]nyt. Ha egybeesik a \
k\[ODoubleDot]zel\[IAcute]t\[EAcute]s \[EAcute]s az eredeti f\[UDoubleDot]ggv\
\[EAcute]ny, akkor j\[OAcute] megold\[AAcute]st kaptunk.\
\>", "Text",
 CellChangeTimes->{{3.6715433273031034`*^9, 3.6715433606723127`*^9}, {
  3.6715433979324903`*^9, 3.6715434477556486`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{"1", "-", "x"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pts", "=", 
   RowBox[{"MyEuler", "[", 
    RowBox[{"0.0", ",", "1.0", ",", "1", ",", "2"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"nsol", "[", "t_", "]"}], "=", 
   RowBox[{"NDSolveValue", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{"1", "-", 
         RowBox[{"x", "[", "t", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{"pts", ",", 
     RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", "Orange"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Pink"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nsol", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6715430825537558`*^9, 3.6715431996469917`*^9}, {
   3.671543242375846*^9, 3.6715433020164113`*^9}, 3.6716134968280153`*^9, 
   3.671613546766675*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    GraphicsComplexBox[{{0., 1.}, {0.5, 1.}, {1., 1.}}, {{{}, {}, 
       {RGBColor[1, 0.5, 0.5], PointSize[0.019444444444444445`], 
        AbsoluteThickness[1.6], LineBox[{1, 2, 3}]}}, {
       {RGBColor[1, 0.5, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
        PointBox[{1, 2, 3}]}, {}, {}}}], {}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7ZX64uKBl6l2DGDwwb65sbuiS3KKPYyfUvJeslNy
CZzPMcVz4YePW+D87ReM3N3l9sP5Ec13bh3uPgLn528s1p3x5SSc/2nCtROM
jOfh/BMHj+0/b3MJzs+s9OSNfHMFzj/IafR/Te51OH/Z4iP/pFRvwfkOYnsX
Ba+7A+frHr+z45jWfTj/ikPwu5XvHsD5OVzZl64aPILzT98I38vX9xjOD3aL
ePjkyRM432xBd/gClWdw/oN/k69k1D+H8596nl8sdvgFnL9h5v3Ki4qv4Pyl
HcydmlWv4fyvyVGv0na/gfO5XdqCNoq/g/NrBJ7yPIx5D+fz7NNmuO77Ac63
LfP/e/gXgj9nSc9i5Tkf4fy4UJOznN6f4PytV1Mn7/uG4Fue2cD0bNpnOF/B
Ne3rZJcvcL6pienELc8Q/Pufek8ubv0K578xDmyVNPoG56u91n3FeBnBP6JS
eqmg8Tuc33/lanKQyg84/33wgYlMRxD8TaGizpaFP+H8xWeb5z4S+gXnfz8e
Uy10CMF/MHH/V4G833D+t4vWkk18f+D8gilKByr3IPjiZ5UEnsT9RcTv1TV/
ZP4h+J/iF+bcWfUPzt+fsL6Vz+c/nK/tEGvLvgzBny7P/fX/fwQfAL6QHM8=

      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 1.}, {0, 2.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.671543303000804*^9, 3.6715441073065653`*^9, 3.6715445296916504`*^9, 
   3.671596093551923*^9, 3.671611902995482*^9, 3.6716134223906174`*^9, 
   3.671613497381383*^9, 3.6716336441069083`*^9, {3.6716865484297256`*^9, 
   3.6716865598200026`*^9}, 3.6716866184870596`*^9, 3.671692049345414*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["3.", "Subsubsection",
 CellChangeTimes->{{3.671539386168748*^9, 3.6715393867625303`*^9}}],

Cell[TextData[{
 "Kezdeti\[EAcute]rt\[EAcute]k-probl\[EAcute]ma:   ",
 StyleBox["x\[CloseCurlyQuote] ( t ) = 2 t x ( t ) ,   t \[Element] [ 0 ; 1 ]\
\n                                     x ( 0 ) = 1",
  FontSlant->"Italic"],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"h", "=", 
    FractionBox["1", "2"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\nx ( 1 ) = ?",
  FontSlant->"Italic"],
 "\n\nK\[EAcute]sz\[IAcute]ts\[UDoubleDot]k el a [ 0 ; 1 ] intervallum \
feloszt\[AAcute]s\[AAcute]t. ",
 Cell[BoxData[
  FormBox[
   RowBox[{"h", " ", "=", " ", 
    FractionBox["1", "2"]}], TraditionalForm]]],
 ", \[IAcute]gy a feloszt\[AAcute]s:   ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]]],
 " = 0 ,  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["t", "1"], " ", "=", " ", 
    FractionBox["1", "2"], " "}], TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "2"], TraditionalForm]]],
 " = 1 . \nAz explicit Euler-m\[OAcute]dszer k\[EAcute]plete:  \n\n           \
                                   ",
 StyleBox["  ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    RowBox[{"n", " ", "+", " ", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" =  ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h f ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" , ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["y", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ,  (n = 0 , \[Ellipsis] , N - 1 )\n                             \
                   x = x ( 0 ) ,",
  FontSlant->"Italic"],
 "\n                                                \nahol N = 2, mert k\
\[EAcute]t r\[EAcute]szre osztottuk az intervallumot \[EAcute]s f ( t , x ) = \
2 t x .\n\nA konkr\[EAcute]t p\[EAcute]ld\[AAcute]ra alkalmazva a rekurzi\
\[OAcute]:\n \n                                               ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    RowBox[{"n", " ", "+", " ", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h * 2 ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["t", "n"], 
    SubscriptBox["x", "n"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ( 1 + 2 h ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" , ( n = 0 , 1 )\n                                               ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = 1 .",
  FontSlant->"Italic"],
 "\n                                               \nMivel \n                 \
                              ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ( 1 + 2 h ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = 1\n                                               ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "2"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ( 1 + 2 h ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ( 1 + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["1", "2"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) * 1 = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["3", "2"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ,\n                                               ",
  FontSlant->"Italic"],
 "\n\[IAcute]gy ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "2"], TraditionalForm]]],
 " = ",
 Cell[BoxData[
  FormBox[
   FractionBox["3", "2"], TraditionalForm]]],
 " az x ( 1 ) k\[ODoubleDot]zel\[IAcute]t\[EAcute]se.\n \nKezdeti\[EAcute]rt\
\[EAcute]k-probl\[EAcute]ma pontos megold\[AAcute]sa: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"x", " ", 
     RowBox[{"(", " ", "t", " ", ")"}]}], " ", "=", " ", 
    SuperscriptBox["e", 
     SuperscriptBox["t", "2"]]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" \[DoubleRightArrow]  x ( 1 ) = e .",
  FontSlant->"Italic"],
 "                                        "
}], "Text",
 CellChangeTimes->{{3.67153941947536*^9, 3.671539427553913*^9}, {
   3.671539477851035*^9, 3.671539858403339*^9}, 3.671540640733178*^9, {
   3.67161387298275*^9, 3.671614064904557*^9}, {3.671618356956797*^9, 
   3.671618609681802*^9}}],

Cell["\<\

Ezt a f\[UDoubleDot]ggv\[EAcute]nyt enn\[EAcute]l pontosabban nem tudjuk k\
\[ODoubleDot]zl\[IAcute]teni. \
\>", "Text",
 CellChangeTimes->{{3.671543569285595*^9, 3.67154362179986*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{"2", "t", " ", "x"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pts", "=", 
   RowBox[{"MyEuler", "[", 
    RowBox[{"0.0", ",", "1.0", ",", "1", ",", "2"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"nsol", "[", "t_", "]"}], "=", 
   RowBox[{"NDSolveValue", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{"2", "t", " ", 
         RowBox[{"x", "[", "t", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{"pts", ",", 
     RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", "Orange"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Pink"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nsol", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6715434674170046`*^9, 3.6715435384830027`*^9}, 
   3.671613504754077*^9, 3.6716135412239676`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    GraphicsComplexBox[{{0., 1.}, {0.5, 1.}, {1., 1.5}}, {{{}, {}, 
       {RGBColor[1, 0.5, 0.5], PointSize[0.019444444444444445`], 
        AbsoluteThickness[1.6], LineBox[{1, 2, 3}]}}, {
       {RGBColor[1, 0.5, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
        PointBox[{1, 2, 3}]}, {}, {}}}], {}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwV1Hk4VVsDBnBTMpaQOsjslAifoSK8u26TJhlC0rmpcItoFFKhVEiFk1uR
yBDKkDJcyjwPHaF0JXNILpsMpyTfaj/Pevbz+2fttdb7rq182NPKmY+HhyeU
jN/vHc5Db0u+OJsp8Px+aAxm2B7uYmxGUE6n+2/LiL679YJhA2tGbzQv8T9F
l9zPM1mIXzzA5ifWNpJOesg4ihu5w3aCxDxSXyLnFY9BeBHdL0z8duR1oBPT
A/6HpjcsIrY8UpvvFHUKLXfnHaWIjZv0syIYZ5ErKLadQaxqGvukPMYLK1/I
zSkSi6UJPZpU9IGosY7fSuJJmTNR6gkXsLzLvFKH+NOVT2G2zEtIl3P/sJ74
CDehrNzGH7Vjd3M2Ebdp7zdzjArAN2aD427ikuhywzDGVQyHPRR2JjZo9n6u
fiAIDMkNi08TpwpprymKuQbphtnOy8QR5+6pjSkG43TPQMdDYsFnu+OuO4Wg
1WSJaAaxby+fvFJCKATesPiLf3/f4oSUJfMWasKPWPURfwhSuf3F9TZYFbKp
08TMTrcFpTZ3UKo1VSvCS+OBtHLA/qhw/BcrddyQ+EpAqHcIg41OoRlVNnGR
vEuubQEbH79U16cTc/OoSZUDd5HI88q0hth9dMqzMCYKnS1u/vPENgcOuY4o
3ofdaY/A83w0bk0bJ+WX3MeNS4N+fxPXhC/tu+r0AMyB8o35xKY1dawVCdFI
r05e/ZOYaWhou4cZC/vDS33C+GkcalrMlq2OhcuND1UviKPdht8OuD6CruLO
rnZiobec5GKbOMzEmp3UFKDhtzBIxT4qHraDLMn3xEfPjjGCGYkwE4i1txSk
oc8f4Zt9MhFKAZZJN4j5Igw+fqxOxHhfQncJ8aNMnxhtryQ4HFBXNVhIo32Y
X7G1ORnXlka3qQvRsHBarqZ4MxV6OY5ia0VoKNAFV7f3pYLXIW+rH/HIpYOf
Txmn4XaZ0sly4pCYx8kVQ2mQrm2/YyNKo6JNS+P4lmfw0+EXDxQj/duzUTvn
VwaWRdSPCy8m+/nUd6tzXybUTp5X/5O4ze3a2ML0TMRU6ZrnEBdUONunr8lC
JWup01EJGva9aQyejiw01aa0Ni4hfVlhGJO0Phs9fHfbG6XJfGzzeHr8JXwe
iLQGytGYXd8zGy+bg/kF3EujxKOfvG2t/8hB9wa1OQd5Gi0rU0Rz2TnoaD5/
Zu0KGrGFgl4X1uXi66Zy8xkF0te+8h2CF/MQ9NDvaZwKyUfPbFJOqABNBdWV
EatpWLe929OoW4BWHP6xXJPGVr8TqZf2FyBxxTWBOGLNqhhWT1oBLJ6U3s/S
ojG9f7YmeXch/tzlUfdRm8bNgPyH/4t8hbjUJjsHfRp5TXrbtikUI06a9Ypr
Qvr0ZWS71tZiDHM/xUeZ0nDhe7JjiUcxOnbutTM0I/8LA7k9H18XY327p945
0CisD0jL0y6BR7f1s18bacjpHH++800JSjg+Feu3kXynjIvPiJdBRJxtsMOK
rJdvOeWiXAbVwy+381nTyF40VWJvWIZkrwmdQuKQlZllpgfL4L3N2FtnH8lv
v2rVwvQyrHNjfFO2p3H/lWhj9K5yhDTLP9VmkXyudLSXh1ZgpvTByOBxGhLd
TC3X+AoYc6wDGtxo1JqcuiiSV4Ft5TWS2e5kvukFSpa9FfAICtPy9yDrPabj
3Lm+EkU+0tSq0zQ69wSOcT9XgnMoRTTFh/RbdpWANlWNXQ1yDq7BNDyfn1lz
b7IWfSb52aNPSb4mPS21QnXobWSv40kn97Vmj++sfB0qvwc9lsyg8VeXRjVr
Sx0a3ttpGmeRPMW7D6lH1aHo7l1x9ksae4/tYmevq8fRZPsNZ17T0FVWn23w
bYCl2PfT3RwaE3fe1/DycnBz8sxa/xkar9yfo1+GA3f9xUFDXBrXt9/MrdLi
IEC+cMzyBw15nk2JofYcJGZayK6ao7HFM/3y0iwODq3Oq+/hG0cDc1M0W6cJ
E1P//huyaBxKCxhWKZ1NUFQ74ZXDHEdNaVUxx6QZUgHLPPwcxnHMx1x8/0gr
jH5FJAi9GUepsN78sxNtMEqsMmftnEByQsUvWfV2WI3bVQ0OToCSef3YOqMD
4uj1ELj9DWuqO/KrVnchxJZKMds+iVbKejR1tBv3nmSMndKcgruIW/M73V7M
tIkE+8tOo/6D3etFt/rAEgiVsjCbgfVW+57+/n6E7ub9GhbAxdq4ULs4tQE8
6D4gldryHd2/Ilv/ujwIXq6CGdNzFp/NOQky5UOYiysuOagwh6z7XT5vlYch
Hmke8lhzHkk3+IM1fL+CoRuLoXweauqIw7BL4QhGU1y5msO8lOjma1bPl41i
laTQ9Z8sfspP4rNYj+MYJv/bwW0aFKDEijR52nbT0GhVN62/J0iZelnMlZNz
l8xUzeY8FaJiEm8mqMaM41vpWY29n0Qo1j6DRmFyTv94blXsuiNO5bxzjiya
noCJkr33hV0SlFFDFt9A1DcEZhj893JoCaW0xWUqcvMk8lxWNvoOSlGGBobh
LwcmsfOnyFyNsAzVNRFWmxA0hYl7St4qJ5ZTI/qWQQy9aSyItjIKdpWjmF/X
DPO2TMNmcNmQX7QCVaF2rvlkwAxUQ/QfDFooU7db3x2xUuPiiX94ptRFVWrM
uiScr4KLvT35fwdMqlPZ+5b+YXTqOxx3XNSVldSgEhqvPOyV/IGqbHp33Xkt
aqba8YJk2Q8Yj5peeHRUl+oOL56S8JiF+k7d2snPetT02w2MwEU/MR72Qrgr
yZA6yVYp8Xn1EzHHl9vEahpRyxpVJPpZc0j3jcxIW2JKXelRazD2mkO/79qh
zwWm1P8B6Vgvug==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.9750000000000001},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 1.}, {1., 1.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6715435249002094`*^9, 3.6715435441082973`*^9}, 
   3.6715441073690696`*^9, 3.671544529754154*^9, 3.6715960936119633`*^9, 
   3.6716119030555215`*^9, 3.6716134224496574`*^9, 3.6716135060789566`*^9, 
   3.671633644218986*^9, {3.6716865485468044`*^9, 3.671686559923072*^9}, 
   3.671686618608139*^9, 3.6716920494054537`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["4.", "Subsubsection",
 CellChangeTimes->{{3.6715398637786236`*^9, 3.671539864075515*^9}}],

Cell[TextData[{
 "Kezdeti\[EAcute]rt\[EAcute]k-probl\[EAcute]ma:   ",
 StyleBox["x\[CloseCurlyQuote] ( t ) = 1 - 2 x ( t ) ,   t \[Element] [ 0 ; 1 \
]\n                                     x ( 0 ) = 0\n",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"h", " ", "=", " ", 
    FractionBox["1", "5"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\nx ( 1 ) = ?",
  FontSlant->"Italic"],
 "\n\nK\[EAcute]sz\[IAcute]ts\[UDoubleDot]k el a [ 0 ; 1 ] intervallum \
feloszt\[AAcute]s\[AAcute]t. ",
 Cell[BoxData[
  FormBox[
   RowBox[{"h", " ", "=", " ", 
    FractionBox["1", "5"]}], TraditionalForm]]],
 ", \[IAcute]gy a feloszt\[AAcute]s:   ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]]],
 " = 0 , ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["t", "1"], " ", "=", " ", 
    FractionBox["1", "5"]}], TraditionalForm]]],
 " , ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "2"], TraditionalForm]]],
 " =  ",
 Cell[BoxData[
  FormBox[
   FractionBox["2", "5"], TraditionalForm]]],
 " , ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "3"], TraditionalForm]]],
 " = ",
 Cell[BoxData[
  FormBox[
   FractionBox["3", "5"], TraditionalForm]]],
 " ,  ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "4"], TraditionalForm]]],
 " = ",
 Cell[BoxData[
  FormBox[
   FractionBox["4", "5"], TraditionalForm]]],
 " , ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "5"], TraditionalForm]]],
 " = 1 . \nAz explicit Euler-m\[OAcute]dszer k\[EAcute]plete:  \n\n           \
                                    ",
 StyleBox[" x",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["", 
    RowBox[{"n", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h f ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" , ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ,     ( n = 0 , \[Ellipsis] , N - 1 )\n                         \
                       x = x ( 0 ) ,\n                                        \
        ",
  FontSlant->"Italic"],
 "\nahol N = 5 , mert \[ODoubleDot]t r\[EAcute]szre osztottuk az \
intervallumot \[EAcute]s f ( t , x ) = 1 - 2 x.\n\nA konkr\[EAcute]t p\
\[EAcute]ld\[AAcute]ra alkalmazva a rekurzi\[OAcute]:\n \n                    \
                           ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    RowBox[{"n", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h ( 1 - 2 ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) = ( 1 - 2 h ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ,   ( n = 0 , 1 , 2 , 3 , 4 )\n                                   \
            ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "0"], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["= 0 .",
  FontSlant->"Italic"],
 "\n                                               \nMivel \n                 \
                             ",
 StyleBox[" ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ( 1 - 2 h ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h = h = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["1", "5"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\n                                               ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "2"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ( 1 - 2 h ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["3", "5"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["* ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["1", "5"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["1", "5"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["8", "25"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\n                                               ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "3"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ( 1 - 2 h ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "2"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["3", "5"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["* ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["8", "25"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["1", "5"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["49", "125"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\n                                               ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "4"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ( 1 - 2 h ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "3"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["3", "5"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["* ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["49", "125"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["1", "5"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["272", "625"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\n                                               ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "5"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ( 1 - 2 h ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "4"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["3", "5"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["* ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["272", "625"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["1", "5"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["1441", "3125"], TraditionalForm]],
  FontSlant->"Italic"],
 "\n                                               \n\[IAcute]gy ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "5"], TraditionalForm]]],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["1441", "3125"], " "}], TraditionalForm]]],
 "\[TildeTilde] 0.4611 az x(1) k\[ODoubleDot]zel\[IAcute]t\[EAcute]se.\n \n\
Kezdeti\[EAcute]rt\[EAcute]k-probl\[EAcute]ma pontos megold\[AAcute]sa: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"x", " ", 
     RowBox[{"(", " ", "t", " ", ")"}]}], " ", "=", " ", 
    RowBox[{
     FractionBox["1", "2"], "  ", 
     RowBox[{"(", " ", 
      RowBox[{"1", " ", "-", " ", 
       SuperscriptBox["e", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "t", " "}]]}], " ", ")"}], " "}]}], 
   TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" \[DoubleRightArrow] x ( 1 ) = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["1", "2"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"1", " ", "-", " ", 
    FractionBox["1", 
     SuperscriptBox["e", "2"]], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[") \[TildeTilde] 0.4323 ",
  FontSlant->"Italic"],
 ". "
}], "Text",
 CellChangeTimes->{{3.6715398819231153`*^9, 3.6715406139935155`*^9}, {
  3.671614087562975*^9, 3.6716143327532835`*^9}, {3.6716186834761286`*^9, 
  3.671618976188766*^9}}],

Cell["\<\

Ezt is j\[OAcute]l megoldottuk!\
\>", "Text",
 CellChangeTimes->{{3.671543780167964*^9, 3.6715437883129377`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{"1", "-", 
    RowBox[{"2", "x"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pts", "=", 
   RowBox[{"MyEuler", "[", 
    RowBox[{"0.0", ",", "1.0", ",", "0", ",", "5"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"nsol", "[", "t_", "]"}], "=", 
   RowBox[{"NDSolveValue", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{"1", "-", 
         RowBox[{"2", 
          RowBox[{"x", "[", "t", "]"}]}]}]}], ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{"pts", ",", 
     RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", "Orange"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Pink"}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nsol", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "5"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.671543710914133*^9, 3.6715437501899433`*^9}, {
   3.6716130915687428`*^9, 3.6716130920260487`*^9}, {3.6716131228298206`*^9, 
   3.6716131232180805`*^9}, {3.671613265950404*^9, 3.6716133393627653`*^9}, 
   3.6716133790292854`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    GraphicsComplexBox[{{0., 0.}, {0.2, 0.2}, {0.4, 0.32}, {
     0.6000000000000001, 0.392}, {0.8, 0.43520000000000003`}, {1., 
     0.46112000000000003`}}, {{{}, {}, 
       {RGBColor[1, 0.5, 0.5], PointSize[0.019444444444444445`], 
        AbsoluteThickness[1.6], LineBox[{1, 2, 3, 4, 5, 6}]}}, {
       {RGBColor[1, 0.5, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
        PointBox[{1, 2, 3, 4, 5, 6}]}, {}, {}}}], {}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwV1nc8lV8YAHB7j3vdFFJZIVQUotRzyk+0RCkZZZRRskqSPcoeqUQZSTKS
[encoded data, 6960 characters]
FPT84mPRRGyz8IfbjqxR0IhW+p0Nl0xLLq6vU9D25ju1G/4f+DxODg==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 1.}, {0, 0.46112000000000003`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6715437422988644`*^9, 3.6715437508149405`*^9}, 
   3.6715441074315724`*^9, 3.6715445298635397`*^9, 3.6715960938501225`*^9, 
   3.6716119031235647`*^9, {3.6716130950230503`*^9, 3.6716131456341286`*^9}, 
   3.6716132390882206`*^9, {3.6716132781855707`*^9, 3.671613308595049*^9}, {
   3.671613351791072*^9, 3.6716133814999275`*^9}, 3.6716134225447235`*^9, 
   3.6716135162387447`*^9, 3.6716336443880944`*^9, {3.6716865488029747`*^9, 
   3.671686560122204*^9}, 3.6716866187372265`*^9, 3.671692049633607*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["5.", "Subsubsection",
 CellChangeTimes->{{3.67154062258772*^9, 3.671540625728512*^9}}],

Cell[TextData[{
 "Kezdeti\[EAcute]rt\[EAcute]k-probl\[EAcute]ma:   ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"x", "'"}], " ", 
     RowBox[{"(", " ", "t", " ", ")"}]}], " ", "=", " ", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "2"}], " ", "x", " ", 
      RowBox[{"(", " ", "t", " ", ")"}]}], "t"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[",    t \[Element] [ 1 ; 2 ]\n                                     \
x ( 1 ) = 2\n",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{"h", " ", "=", " ", 
    FractionBox["1", "4"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\nx ( 2 ) = ?",
  FontSlant->"Italic"],
 "\n\nK\[EAcute]sz\[IAcute]ts\[UDoubleDot]k el a [ 1 ; 2 ] intervallum \
feloszt\[AAcute]s\[AAcute]t. ",
 Cell[BoxData[
  FormBox[
   RowBox[{"h", " ", "=", " ", 
    FractionBox["1", "4"]}], TraditionalForm]]],
 ", \[IAcute]gy a feloszt\[AAcute]s:   ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]]],
 " = 1 , ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["t", "1"], " ", "=", " ", 
    FractionBox["5", "4"]}], TraditionalForm]]],
 " , ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "2"], TraditionalForm]]],
 " = ",
 Cell[BoxData[
  FormBox[
   FractionBox["6", "4"], TraditionalForm]]],
 " , ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "3"], TraditionalForm]]],
 " = ",
 Cell[BoxData[
  FormBox[
   FractionBox["7", "4"], TraditionalForm]]],
 " , ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "4"], TraditionalForm]]],
 " = 2 . \nAz explicit Euler-m\[OAcute]dszer k\[EAcute]plete:  \n\n           \
                                     ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    RowBox[{"n", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h f ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" , ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ,   ( n = 0 , \[Ellipsis] , N - 1 )\n                           \
                     x = x ( 0 ) ,",
  FontSlant->"Italic"],
 "\n                                                \nahol N = 4 , mert n\
\[EAcute]gy r\[EAcute]szre osztottuk az intervallumot \[EAcute]s f ( t , x ) \
= ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     RowBox[{"-", "2"}], " ", "x"}], "t"], TraditionalForm]]],
 " .\n\nA konkr\[EAcute]t p\[EAcute]ld\[AAcute]ra alkalmazva a rekurzi\
\[OAcute]:\n \n                                              ",
 StyleBox[" ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    RowBox[{"n", "+", "1"}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + h * ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SubscriptBox["x", "n"]}], 
     SubscriptBox["t", "n"]], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ( 1 - ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"2", " ", "h"}], 
    SubscriptBox["t", "n"]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{
      SubscriptBox["t", "n"], "-", 
      RowBox[{"2", " ", "h"}]}], 
     SubscriptBox["t", "n"]], " ", 
    SubscriptBox["x", "n"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ,   ( n = 0 , 1 , 2 , 3 )\n                                       \
        ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = 2 .",
  FontSlant->"Italic"],
 "\n                                               \nMivel \n                 \
                              ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SubscriptBox["t", "0"], "-", 
     RowBox[{"2", " ", "h"}]}], 
    SubscriptBox["t", "0"]], TraditionalForm]],
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["x", "0"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["= ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"1", " ", "-", " ", 
     FractionBox["2", "4"]}], "1"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" * 2 = 1\n                                               ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "2"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SubscriptBox["t", "1"], "-", 
     RowBox[{"2", " ", "h"}]}], 
    SubscriptBox["t", "1"]], TraditionalForm]],
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["x", "1"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     FractionBox["5", "4"], " ", "-", " ", 
     FractionBox["2", "4"]}], 
    FractionBox["5", "4"]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" * 1 = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["5", "4"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\n                                               ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    RowBox[{"3", " "}]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["= ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{
      SubscriptBox["t", "2"], "-", 
      RowBox[{"2", " ", "h"}]}], 
     SubscriptBox["t", "2"]], " ", 
    SubscriptBox["x", "2"], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["= ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{
      FractionBox["6", "4"], " ", "-", " ", 
      FractionBox["2", "4"]}], 
     FractionBox["6", "4"]], " "}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["* ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["3", "5"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["2", "5"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\n                                               ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "4"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SubscriptBox["t", "3"], "-", 
     RowBox[{"2", "h"}]}], 
    SubscriptBox["t", "3"]], TraditionalForm]],
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["x", "3"]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     FractionBox["7", "4"], " ", "-", " ", 
     FractionBox["2", "4"]}], 
    FractionBox["7", "4"]], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" * ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["2", "5"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["2", "7"], TraditionalForm]],
  FontSlant->"Italic"],
 "\n                                              \n                          \
                     \n\[IAcute]gy ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "4"], TraditionalForm]]],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["2", "7"], " "}], TraditionalForm]]],
 "\[TildeTilde] 0.2857 az x ( 2 ) k\[ODoubleDot]zel\[IAcute]t\[EAcute]se.\n \n\
Kezdeti\[EAcute]rt\[EAcute]k-probl\[EAcute]ma pontos megold\[AAcute]sa: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"x", " ", 
     RowBox[{"(", " ", "t", " ", ")"}]}], " ", "=", " ", 
    FractionBox["2", 
     SuperscriptBox["t", "2"]]}], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" \[DoubleRightArrow]  x ( 2 ) = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["1", "2"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[". ",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.6715406651760845`*^9, 3.6715406961385975`*^9}, {
  3.6715408805392895`*^9, 3.6715416150638466`*^9}, {3.6716143523473797`*^9, 
  3.67161447485695*^9}, {3.6716145108746076`*^9, 3.6716146741023417`*^9}, {
  3.67161904109515*^9, 3.6716193114502687`*^9}}],

Cell["\<\

Ez sem valami pontos, de az\[EAcute]rt itt is megfigyelhet\[ODoubleAcute] a k\
\[ODoubleDot]zel\[IAcute]t\[EAcute]s.\
\>", "Text",
 CellChangeTimes->{{3.671543923125463*^9, 3.671543988187559*^9}, {
  3.671614496906901*^9, 3.6716144974262533`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "x"}], ")"}], "/", "t"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pts", "=", 
   RowBox[{"MyEuler", "[", 
    RowBox[{"1.0", ",", "2.0", ",", "2", ",", "4"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"nsol", "[", "t_", "]"}], "=", 
   RowBox[{"NDSolveValue", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2"}], 
           RowBox[{"x", "[", "t", "]"}]}], ")"}], "/", "t"}]}], ",", 
       RowBox[{
        RowBox[{"x", "[", "1", "]"}], "\[Equal]", "2"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "4"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{"pts", ",", 
     RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", "Orange"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Pink"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nsol", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "4"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.671543822006586*^9, 3.6715438932291*^9}, {
  3.6716135234220777`*^9, 3.6716135324551086`*^9}, {3.6716193229009185`*^9, 
  3.6716193232961836`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NDSolveValue", "::", "ndsz"}], "MessageName"], ":", 
  " ", "\<\"At \[NoBreak]\\!\\(t\\)\[NoBreak] == \
\[NoBreak]\\!\\(7.601527086474948`*^-15\\)\[NoBreak], step size is \
effectively zero; singularity or stiff system suspected. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/NDSolveValue/ndsz\\\", \
ButtonNote -> \\\"NDSolveValue::ndsz\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.6715438942134967`*^9, 3.671544107494076*^9, 3.671544529957289*^9, 
   3.6715960940662656`*^9, 3.671611903361725*^9, 3.6716134226117697`*^9, {
   3.6716135251292105`*^9, 3.6716135335668507`*^9}, 3.6716145034913025`*^9, 
   3.671619328779846*^9, 3.6716336446592746`*^9, {3.671686549006118*^9, 
   3.6716865602312794`*^9}, 3.6716866188593082`*^9, 3.671692049705655*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    GraphicsComplexBox[{{1., 2.}, {1.25, 1.}, {1.5, 0.6}, {1.75, 0.4}, {2., 
     0.28571428571428575`}}, {{{}, {}, 
       {RGBColor[1, 0.5, 0.5], PointSize[0.019444444444444445`], 
        AbsoluteThickness[1.6], LineBox[{1, 2, 3, 4, 5}]}}, {
       {RGBColor[1, 0.5, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
        PointBox[{1, 2, 3, 4, 5}]}, {}, {}}}], {}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVy2k8FIgfgPExyN04Ile5JRIlldT+fikquY9Q6dwiudpaEdKQkqMk2khS
qJRcFbYc49auSTkihpkxbuOaYdz89//i+XxfPWrn/BwuEAkEQt5//V+IsMii
Z9MgYcneRGlKA3VsuxIf/UuDTmanVmCVBqqGPtx6XLkbXOw5Ap7OGij1a/ns
YFk3uEl16adEqiMn/mcDHx8dJOUvv78kpoal3gXQJ0eHx3fzpK5yVfHu4dii
ui10mKTUs3K7VFGZYJYZ40qHtA+vU77kqKK53/sw2Xw6eLRMDCrYq2KjttnT
RAMGZNW20aYOqmBBYt7PyD0MYIXJ7G5TVMHHxA3S180ZoHx90VFiaiOe7ZmN
cjvBgF1yzIDAtI3IS3ofsPEuAzSighQ0ljegqqCCw5seBrA9T5hIflVGwat3
4pKHGTDRa5BNy1DGEQa3IXqaAbUr09JTN5XxU+k38BFlAt9mlcVxY2W0vHZb
f/tOJrhnJOnrvVbCa6wJ4dI4Jnyk2qqKP1bEhsq6iqa9vRB6PXB2ywt5fNW4
1Bd3qBc6FfCm2W15jGzfLmrl0Auptpk10R7yaDaW5tTg0Qt3XV7WF2yVx1L5
68OUhF7Iqbe/bV2xHvP9NskUDvUCr/jSwPFhOXyyIepiYiILoHUgZNVdFgN0
ymMcnrNAgborMN1CFp2NpvMl37LgVMlYuYeBLEofObMYW8GCezuWmR58shh7
bXd85AgLWjxoF7Ver8Nb/w79HYB9EOwjqmc7L4OXgo5IuLH7QEG28alHkTS+
VZJyP8XrA0Kl19jdTGlkl3XknCf0Q8eV1JbKBGn0JXpa+a7rB1HD7CdkP2m8
FnMnJmJvP/TsW3ihpyuNYc+qRXJj++FaTkMJIVMKkyr3reHXH4CT8176kW8k
8ed5wWPCuwYgIsPRgpwsifJrqFkS+weg+0nDq4fRkphiedJc3nkADnyvfDfu
LYnpLTdu64cOAJzurE7aLonv+ouJrtQBsDUsT+SEk7BSZPtqjs8ghGZSz3r9
kkAdJ8Pi6MBBSFrmeFLLJDA+baufZ8QgHD7g+enYSwk8Y6RH10gehE21Cfxd
lyVw5aRmRUrNILjNyn9+SZDAPflyYVFKQ6DWtIWPayiOH48trpz/OgRdfqnk
vreiqPxivmh/6xB43qebJTwSxYjRWV8V+hBUrtVMOBUiig63pns6p4dA1/Rv
PgcbUZzMHiu3Vx0GPkLA7jSuCOov02/C9WE43sLoen5ABF9l1Kwoao2AzF+8
X0uzQugf6cQEgxHQ0tcy9e0XQlOPvurfTUZgj6iA+kyzEH7XFbiXaz0C5B+h
s2a5QjhfcEDGLGAEPH2OkbouCKEVpWrTpfoR2GmoXsPsWINcGsWu+NIobK5q
Mb5OFcTycjsj2tVRuDRf5uZeJohR6QxZvpujUGKQfdT5vSAq/07oskwYha/O
kgY34gTRYhQu9HwehXaXbuMkG0FMmS8PEhRngxox22+hRQBRruylYy4bLAxM
t3SO8KNAkqyfeQkbRBQtw6S6+bFBxtd0VxUbvDdYbXBp4kdbKZVWxZ9syPkV
Pir+kR9PiZMFe5f/+xX036re5Mdgormnv/UY8CWrzbSv48ei8Ub9OPYYeMra
84SsiHjDR2vhJm8M7BJf1PYBEX9jh9b5E8bB5PPWTKoREWuHt552WjcO8UHv
baqViNjaFx+vtHccPr1rz97L5kNOpxM3O2YcWhS1hY8/4EP9elpJne4E9EXL
sjq6CSg3fnks3ngCSCOH7bY1E5Agu6h2AidgVnSQmlRHwNZzCjETzhNA804r
Ds8jYMiKs7s8eQJylCoDR8gEbDRu4vNqnwDq6pcqlg4BjZvPZK0xm4Sx5Klv
Wisr0IqO49njkzAytmG0LGEJFp6znhVyJ8GzfFKvgbwEaqtXrb/MTUKsnUY4
038JfMsScxqJUxCfbqS933YJhPb89JqQmwLteWnXQvEl2GPkNrgDpuBOx6Nb
1tGLkK51mlHxYAp8asc7OQ8WwFv0cnObIQd8LAdbsirn4FWZXJHlTg7c1dV2
bS6cA7p/VXKFKQdIAc664plz4NCucDbbggPh8llBr+/Mwe7MhomQkxxgiw6K
BVvNgcBv2hKaURwI3HjfM6pzFlKvMA/9QefAwLLyobZVHvzb4VK29j4Xco0C
uWbeMxDeOSjr9YgLwmeDpGLOzMBu2nXf2idcMPJK+IfmNAOZ9L9UQjK4EBfN
6kvdNwMhA+3k4RIu7HAfSL5PmgH9aReLGhYXpHS9BQ0+TcMDkmtTkMk03Dv4
7JiK0DQ4Wrgy+/qmYbcJUbammgOfZbY1sYanYfO8jeq3zxxQZ4qU9Y5PA/ls
QFJPAQc4wV+eMOamQSPTMVM6nQPxBRvtaOIzsDniRlZdCAcalfvLW3bMAP/9
OiG3XRw4yL2SWnV7Bqg6vedW86dgZ3qMS7omD/ZUVsZqfZqE/MqwIDFdHpxL
XzFfzJkEPdbVpwEGPHhW9HHhZ+YkqGqfpFvt4YGTmR+kJ06CWM4Wj3lbHgyx
7RKDrk0Co5ga4BDMg3Y47W5mPAkxTaTHAs08IPOTvMUCJoCx8qjVM2wWDnNc
U31yxqD/SFOGXPUcmH1SPxZUMgL5yfSgH2oLMFdW9l1gZRCyovjvbb6xCGzo
97rwoR9mzh8fufhlCQJXf/+jrIMFYgfvOBSsX4EixcxDxet7IUSyX5x5chUS
fk2pqr5hgHi5HqHdmoDdotXBR3/0wL4A2+XqBQIW3dgbK+VFg9TM2AyNVD40
+yrs/dyrE04576CKHCViPNHtNPtGB3xqu/ConEdEFSnNlWv1P8GkMZ848Jgf
nx2JezHp2gaq5hdnHh0UwPDfnk8aTbWA8Q7jhx8HBLDuB889gtIMdE7c14xI
QWz3HJeJy/sBbCP7SIXta7CSeXS2N/07aI/qj/C1rMH5W5Lr7a82QY3mn83+
ZCHMFpZqsnpNhQetbecdNIVxMNrSyl+5ESYcKQ+JNcJ4uzHKMqToHyh0lj1g
ckUEpTeGGT+x/QoZ1IhnvdKieHPiYOFdhQaYrT8ZLF0liktZj/tXmXXAeFgx
I+krhjoGNrJxdbXA+2GqEL5WHG+Z+Joe+V4D/onqlKBScVR1tIrc314N66nq
kn2nJHDf8JLltpUqcGzLWVJekUD2AL0lfWcVcE6/8Ka9XYupwTrcgsuVUHEm
L3KtFQk7PBoHxD9T4HOT99EeGxJarcUpsWIKFP2mK5VrT8KKzrp/xD5SIEc5
K9XahYTyrd3DErkUSOlI+RB7joSvqYwmpZcU+NPuDlM0iISXtevm3KMpoIfu
+4RekZCSV1gddIIC2nmK/O1vSJi5UKGW4EoB9Y0dDa/ekdDwEM38nTMF5Jcc
nCwKSJh/Xo9Ot6XAmpLDlyNLSbhV5Y6Nw0EKMA12JPO3kDD00H7WCX0K0NKm
TrW0kdAv9Cn5li4FOiTyNDM6SFiY+5aZtYkC30Y355v1kDCd/KOfo0aB0tcq
9eRhEs64Z/CS5ChQItcda88moRdL6ClFhgIfIlMc1CZIKHx2emVUkgJvz8v2
UKZJuKnaRsBcjAJZzc0Z8bMk7Lm4LesPYQqk74+/dGaBhDrkSIEXghRIzbc2
MFwmYdoVQfXvRAr8pSI2s7pKwlKD9oXV1Qr4H2iWUm0=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.984375, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{1., 2.}, {0, 2.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.671543894322873*^9, 3.6715441075565805`*^9, 3.67154453003542*^9, 
   3.671596094189355*^9, 3.671611903453786*^9, 3.6716134226718087`*^9, {
   3.6716135252002587`*^9, 3.671613533632895*^9}, 3.671614503558347*^9, 
   3.6716193288518977`*^9, 3.671633644766347*^9, {3.6716865491341953`*^9, 
   3.671686560353359*^9}, 3.6716866189933977`*^9, 3.6716920497636967`*^9}]
}, {3}]]
}, Closed]],

Cell[CellGroupData[{

Cell["6.", "Subsubsection",
 CellChangeTimes->{{3.671541622111095*^9, 3.671541622579872*^9}}],

Cell[TextData[{
 "Kezdeti\[EAcute]rt\[EAcute]k-probl\[EAcute]ma:   ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"x", "'"}], 
    RowBox[{"(", "t", ")"}]}], TraditionalForm]]],
 " = ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"t", "+", "1"}], ")"}], "2"], TraditionalForm]]],
 "t(x),   t\[Element][0;1]\n                                     x(0)=1\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"h", "=", 
    FractionBox["1", "4"]}], TraditionalForm]]],
 "\nx(1)=?\n\nK\[EAcute]sz\[IAcute]ts\[UDoubleDot]k el a [0;1] intervallum \
feloszt\[AAcute]s\[AAcute]t. ",
 Cell[BoxData[
  FormBox[
   RowBox[{"h", "=", 
    FractionBox["1", "4"]}], TraditionalForm]]],
 ", \[IAcute]gy a feloszt\[AAcute]s:   ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]]],
 "=0, ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["t", "1"], "=", 
    FractionBox["1", "4"]}], TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "2"], TraditionalForm]]],
 "= ",
 Cell[BoxData[
  FormBox[
   FractionBox["2", "4"], TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "3"], TraditionalForm]]],
 "= ",
 Cell[BoxData[
  FormBox[
   FractionBox["3", "4"], TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "4"], TraditionalForm]]],
 "= 1. \nAz explicit Euler-m\[OAcute]dszer k\[EAcute]plete:  \n\n             \
                                   ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    RowBox[{"n", "+", "1"}]], TraditionalForm]]],
 " = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]]],
 "+h f(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "n"], TraditionalForm]]],
 ",",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]]],
 "),  (n = 0,\[Ellipsis], N-1)\n                                              \
  x=x(0),\n                                                \nahol N=4, mert n\
\[EAcute]gy r\[EAcute]szre osztottuk az intervallumot \[EAcute]s f(t,x)= ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"t", "+", "1"}], ")"}], "2"], TraditionalForm]]],
 "x.\n\nA konkr\[EAcute]t p\[EAcute]ld\[AAcute]ra alkalmazva a rekurzi\
\[OAcute]:\n \n                                               ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    RowBox[{"n", "+", "1"}]], TraditionalForm]]],
 " = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]]],
 "+h ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["t", "n"], "+", "1"}], ")"}], "2"], TraditionalForm]]],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]]],
 "=(1+h ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["t", "n"], "+", "1"}], ")"}], "2"], TraditionalForm]]],
 ")",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "n"], TraditionalForm]]],
 ", (n=0,1,2,3)\n                                               ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 "=1.\n                                               \nMivel \n              \
                                ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]]],
 "= (1+h ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["t", "0"], "+", "1"}], ")"}], "2"], TraditionalForm]]],
 ")",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 "=(1+h*1)*1= ",
 Cell[BoxData[
  FormBox[
   FractionBox["5", "4"], TraditionalForm]]],
 "\n                                              ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "2"], TraditionalForm]]],
 "= (1+h ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["t", "1"], "+", "1"}], ")"}], "2"], TraditionalForm]]],
 ")",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]]],
 "=(1+ ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", "4"], TraditionalForm]]],
 "*",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["5", "4"], ")"}], "2"], TraditionalForm]]],
 ")* ",
 Cell[BoxData[
  FormBox[
   FractionBox["5", "4"], TraditionalForm]]],
 "= ",
 Cell[BoxData[
  FormBox[
   FractionBox["445", "256"], TraditionalForm]]],
 "\n                                              ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "3"], TraditionalForm]]],
 "= (1+h ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["t", "2"], "+", "1"}], ")"}], "2"], TraditionalForm]]],
 ")",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "2"], TraditionalForm]]],
 "=(1+ ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", "4"], TraditionalForm]]],
 "*",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["6", "4"], ")"}], "2"], TraditionalForm]]],
 ")* ",
 Cell[BoxData[
  FormBox[
   FractionBox["445", "256"], TraditionalForm]]],
 "= ",
 Cell[BoxData[
  FormBox[
   FractionBox["11125", "4096"], TraditionalForm]]],
 "\n                                              ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "4"], TraditionalForm]]],
 "= (1+h ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["t", "3"], "+", "1"}], ")"}], "2"], TraditionalForm]]],
 ")",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "3"], TraditionalForm]]],
 "=(1+ ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", "4"], TraditionalForm]]],
 "*",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["7", "4"], ")"}], "2"], TraditionalForm]]],
 ")* ",
 Cell[BoxData[
  FormBox[
   FractionBox["11125", "4096"], TraditionalForm]]],
 "= ",
 Cell[BoxData[
  FormBox[
   FractionBox["1257125", "262144"], TraditionalForm]]],
 " \[TildeTilde] 4.7955\n                                              \n\
\[IAcute]gy ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "4"], TraditionalForm]]],
 "\[TildeTilde] 4.7955 az x(1) k\[ODoubleDot]zel\[IAcute]t\[EAcute]se.\n \n\
Kezdeti\[EAcute]rt\[EAcute]k-probl\[EAcute]ma pontos megold\[AAcute]sa: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"x", "(", "t", ")"}], "="}], TraditionalForm]]],
 " ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", 
    RowBox[{
     RowBox[{
      FractionBox["1", "3"], 
      SuperscriptBox["t", "3"]}], "+", 
     SuperscriptBox["t", "2"], "+", "t"}]], TraditionalForm]]],
 " \[DoubleRightArrow] x(1)= ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", 
    FractionBox["7", "3"]], TraditionalForm]]],
 " \[TildeTilde] 10.3123. "
}], "Text",
 CellChangeTimes->{{3.6715416341622715`*^9, 3.6715425421660843`*^9}, {
  3.6716146899659367`*^9, 3.6716149347159705`*^9}}],

Cell["\<\

\[CapitalAAcute]br\[AAcute]zolva:\
\>", "Text",
 CellChangeTimes->{{3.6715442752423415`*^9, 3.6715442789300103`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"t", "+", "1"}], ")"}], "^", "2"}], "*", "x"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pts", "=", 
   RowBox[{"MyEuler", "[", 
    RowBox[{"0.0", ",", "1.0", ",", "1", ",", "4"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"nsol", "[", "t_", "]"}], "=", 
   RowBox[{"NDSolveValue", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"t", "+", "1"}], ")"}], "^", "2"}], "*", 
         RowBox[{"x", "[", "t", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "4"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"A", "=", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{"pts", ",", 
      RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", "Orange"}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Pink"}]}], "]"}]}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nsol", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "4"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6715440005982847`*^9, 3.6715440699423256`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    GraphicsComplexBox[{{0., 1.}, {0.25, 1.25}, {0.5, 1.73828125}, {0.75, 
     2.716064453125}, {1., 4.795551300048828}}, {{{}, {}, 
       {RGBColor[1, 0.5, 0.5], PointSize[0.019444444444444445`], 
        AbsoluteThickness[1.6], LineBox[{1, 2, 3, 4, 5}]}}, {
       {RGBColor[1, 0.5, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
        PointBox[{1, 2, 3, 4, 5}]}, {}, {}}}], {}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVV3c8198X/uzPx0ghsqmQ7IQkX/e8P5UVMkv2KlFGCBXZUhTRICMiSpIk
[encoded data, 16080 characters]
/GSEKIHfr3cctKH/D/wIbO8=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 1.}, {0, 4.795551300048828}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6715440705516987`*^9, 3.671544107634709*^9, 3.671544265847316*^9, 
   3.6715445301291695`*^9, 3.67159609439549*^9, 3.6716119035428452`*^9, 
   3.671613422782881*^9, 3.671633644918449*^9, {3.6716865493023076`*^9, 
   3.6716865605094643`*^9}, 3.671686619124485*^9, 3.6716920498537536`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["7.", "Subsubsection",
 CellChangeTimes->{{3.6716194029844513`*^9, 3.6716194034117336`*^9}}],

Cell[TextData[{
 "Az Euler m\[OAcute]dszer seg\[IAcute]ts\[EAcute]g\[EAcute]vel \
sz\[AAcute]moljunk k\[ODoubleDot]zel\[IAcute]t\[ODoubleAcute] \
megold\[AAcute]st az x ( 0 ) = 1 kezdeti \[EAcute]rt\[EAcute]kkel meghat\
\[AAcute]rozott x\[CloseCurlyQuote] = 3 ( x + 1 ",
 Cell[BoxData[
  FormBox[")", TraditionalForm]]],
 " differenci\[AAcute]legyenletre a [ 0 , 1 ] intervallumon 0.1 \
oszt\[AAcute]sk\[ODoubleDot]zzel. \[CapitalAAcute]br\[AAcute]zoljuk az \
\[IAcute]gy kapott megold\[AAcute]st!\n"
}], "Text",
 CellChangeTimes->{{3.671620810832488*^9, 3.671620860376601*^9}, {
  3.6716209152682915`*^9, 3.6716211863597674`*^9}, {3.671693976656798*^9, 
  3.671693990235875*^9}, {3.6716958985436797`*^9, 3.6716959001218786`*^9}},
 TextJustification->1.],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mo", "=", 
  RowBox[{"DSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{"3", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "[", "t", "]"}], "+", "t"}], ")"}]}]}], ",", 
      RowBox[{
       RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
    RowBox[{"x", "[", "t", "]"}], ",", "t"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.671622190047705*^9, 3.6716222830534525`*^9}, {
  3.671623427441535*^9, 3.6716234291946974`*^9}, {3.6716959681466675`*^9, 
  3.671695968537316*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "[", "t", "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "3"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"3", " ", "t"}]]}], "-", 
       RowBox[{"3", " ", "t"}]}], ")"}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.671686637589982*^9, 3.6716920500288715`*^9, 
  3.671692124376567*^9, 3.671694005029396*^9, 3.6716959705884542`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"moex", "[", "t_", "]"}], "=", 
  RowBox[{"mo", "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6716223622243724`*^9, 3.671622393890669*^9}, {
  3.6716234404792423`*^9, 3.6716234467574377`*^9}, {3.671623479269244*^9, 
  3.671623481562775*^9}, {3.671695974010517*^9, 3.6716959805264874`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "3"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"3", " ", "t"}]]}], "-", 
    RowBox[{"3", " ", "t"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.671622394715215*^9, 3.671622783820301*^9, 3.6716229343133974`*^9, {
   3.671623447217743*^9, 3.6716234925841436`*^9}, 3.67162379945529*^9, 
   3.6716239456436844`*^9, 3.671633645191634*^9, 3.6716337408015385`*^9, 
   3.671683599028549*^9, 3.6716840541429815`*^9, {3.6716865496455383`*^9, 
   3.671686560725609*^9}, {3.671686619420684*^9, 3.6716866400606337`*^9}, 
   3.671692050057891*^9, 3.6716921262578306`*^9, 3.6716940066114516`*^9, {
   3.6716959749480605`*^9, 3.671695982651594*^9}}]
}, Open  ]],

Cell["\<\
Amint l\[AAcute]that\[OAcute], az Euler-m\[OAcute]dszerrel kapott megold\
\[AAcute]s nem t\[UAcute]l j\[OAcute]. \
\>", "Text",
 CellChangeTimes->{{3.6716233464213753`*^9, 3.671623373830694*^9}, {
   3.671623511044485*^9, 3.6716235491919775`*^9}, 3.671683877298112*^9},
 TextJustification->1.],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"MyEuler", "[", 
    RowBox[{"kezdet_", ",", "veg_", ",", "kezdetiertek_", ",", "lepesszam_"}],
     "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", "kezdet"}], ",", 
       RowBox[{"b", "=", "veg"}], ",", "j", ",", 
       RowBox[{"m", "=", "lepesszam"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"h", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "-", "a"}], ")"}], "/", "m"}]}], ";", 
      RowBox[{"V", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"a", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "-", "1"}], ")"}], " ", "h"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", 
           RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"W", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"kezdetiertek", ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", 
           RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "\[LessEqual]", "m"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"W", "[", 
           RowBox[{"[", 
            RowBox[{"j", "+", "1"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"W", "[", 
            RowBox[{"[", "j", "]"}], "]"}], "+", 
           RowBox[{"h", " ", 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"V", "[", 
               RowBox[{"[", "j", "]"}], "]"}], ",", 
              RowBox[{"W", "[", 
               RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}]}], ";"}]}], "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Transpose", "@", 
       RowBox[{"{", 
        RowBox[{"V", ",", "W"}], "}"}]}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{"3", "*", 
    RowBox[{"(", 
     RowBox[{"x", "+", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pts", "=", 
   RowBox[{"MyEuler", "[", 
    RowBox[{"0.1", ",", "1.0", ",", "1", ",", "10"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mo", "=", 
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{"3", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "[", "t", "]"}], "+", "t"}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", "t"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"moex", "[", "t_", "]"}], "=", 
   RowBox[{"mo", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mo", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"moex", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{"pts", ",", 
     RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", "Orange"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Pink"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"mo", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"moex", "[", "t", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.671683294620616*^9, 3.6716833692799873`*^9}, {
   3.671683404175704*^9, 3.6716834499882793`*^9}, {3.671683493487629*^9, 
   3.67168350644629*^9}, {3.6716835832907767`*^9, 3.6716835900522957`*^9}, {
   3.671683650012954*^9, 3.671683655511628*^9}, 3.6716939913276796`*^9, {
   3.6716941847947454`*^9, 3.671694212830349*^9}, {3.671695841856161*^9, 
   3.6716958677113056`*^9}, {3.67169593360803*^9, 3.6716959357175198`*^9}, {
   3.671695992355239*^9, 3.6716960208482723`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    GraphicsComplexBox[{{0.1, 1.}, {0.19, 1.54}, {0.28, 2.2258}, {0.37, 
     3.096766}, {0.4600000000000001, 4.202892820000001}, {0.55, 
     5.607673881400001}, {0.64, 7.391745829378001}, {0.7300000000000001, 
     9.65751720331006}, {0.8200000000000001, 12.535046848203777`}, {0.91, 
     16.189509497218797`}, {1.0000000000000002`, 
     20.830677061467874`}}, {{{}, {}, 
       {RGBColor[1, 0.5, 0.5], PointSize[0.019444444444444445`], 
        AbsoluteThickness[1.6], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11}]}}, {
       {RGBColor[1, 0.5, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
        PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
         11}]}, {}, {}}}], {}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVzX1cywkcwPHVuPQgScVcpAcdqfS8/Tp8v5HS9UAr1L3oupQX5yGRXI6X
oyvSpFFHq2S2us6x1oMuSa0HlSOjJ7Mely1Z02/Sg0vLuT8+r/efH8uoWGaM
NoVCCfzS/34XM/xC9Hb7hqJtsUYUihreCHZE9dPc4Oi+Y3GPqGow0+9ML6N5
w+2qGi2WjhocCZOCPFoo5M9uKTFfoAbP567CK7RosPXRCg1YrgZRToP7JVo8
KMIHh+Tr1JB0Nu3ni7TfIOgEuU5zUg3R8SQtlZYJdzUjFdJpNczL9OOq3/Ph
vilxPs1yDP5+7uLru7wYAvLsg/f6f4CwpB5pQ1o5XP/k1k1NGYfYkmMO18fv
Q+XkXAPHyQkYy+hq0dKqhfiKV0TWviloqWuqFa+rB3Uqt2YJ7V/Yn+g3P1zV
CIq6/FD319NQp+vy+c6hZhj0vegSLpiBQl7j7NKV/8A9ql2F9aNZQLOHt0IE
T4Ep6GDnHaagQ3NPZZOdGAJ0FplUndfCDgwZ/XP0Oejl18WxnmnjQb0DbZ1O
beBYGGcCpnPwiWTnQ8P0dqixKWVzMuZiiE+YTC7vgAsUZsDaFTrocTNt502b
LhgtYnVzBfNwYPZqx74zLwFTcmYrT+mhwk/MM2uQgIMPN1XmZ4DC7P7EF5ZS
iByUxXpEGmLBBWrq6pPdoCLKFfP9jHBiz/fKvQ964KMzS9YfuRD1vVOYJYv7
QBl1wrGNb4ynjBQGsl39oAls4D19swgNatZQXgYOgNruypl+himuT9iqaZge
ALn43uHuGjPM5bN41rkykP8YV/XVpiUYsd2tVdd/EGhWXNtX1KV4rzPmas3k
ICisQ0Ak/RqJp0Ltod9fg6o2Nf+BYBmu2Lx34qq3HAyCsxblPrFAdzd3dvmQ
HOoXF3UNja3A/rFLj3nJCnBVHcrZrG+FKtfgZJrLENz9VPYrfas12o44KLXa
hyAlY2ubOdsGG22Otx05+wZO+Xht7J1ji5c7OvcwbYYhdJxfJkr4BskQEVu7
cRiiKza6L/i4Cku3m24i4t5CkHCz82S5HfJak/IGjZWgSJ/2NIm1x6nmXb8Y
1ythPN08PfKQIw6wayeMDo9A14NK6bSXE06++JZ2zlAF8d5kqY+/Mx7JtBIl
VqvA4xZn/NhpF1zcamUkj3gHp59tWtZ01xVDOu/MmM++g6JS98xzSjcc+4F7
sOf2KGxINSZ0wzywNrI42TCAhFd0ehhZT8cq8UH/viASNJFCzvHHdKzYYLdQ
EEyCXD8rRyOm4x3zgtzAnST89OGE1LiXjhwJp4wVRUK2PSucOUXH49tSZHqJ
JJwry2pcac/ANbh7vU4hCVEmErblNQbaFi+lviwiYUeS54WBPAZaLZe0FP71
5V8448/lM3DJDDPUp4QE+/6U9atKGfhV5ZYDydUk8Id0u/xbGShb65ZNbSdB
ylH6KqkE9tx4H9HeSYKz+Fpgkx6BkvnFNjwJCWb8oFX8hQQ+G1kt3NhHwhFa
S0SMBYHVf1g0n31LQld1Yq/Gk8BKs15WsIoESq529rAXgWXJHKYlSQLXK8Gh
cwuBt/eY9onGSfAZNHpdtoPAgrY2XsYUCQlC57mFuwm86ZWxP3KahBsjTtqc
aAJzhYFrnTQkNInTpJcPEHjNQn/i82cS3t+vTT9/lMD/ADKYXGI=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0, 1.0000000000000002`}, {0, 20.830677061467874`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.671695937780117*^9, 3.6716960216451797`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["8.", "Subsubsection",
 CellChangeTimes->{{3.6716846462299414`*^9, 3.671684646564159*^9}}],

Cell["\[CapitalAAcute]br\[AAcute]zoljuk a Lotka-Volterra f\[EAcute]le ragadoz\
\[OAcute]-zs\[AAcute]km\[AAcute]ny modellt. ", "Text",
 CellChangeTimes->{{3.671684898165539*^9, 3.67168492023732*^9}}],

Cell[TextData[{
 "x ( t ) -vel jel\[ODoubleDot]lj\[UDoubleDot]k a n\[ODoubleDot]v\[EAcute]ny \
\[ODoubleDot]sszt\[ODoubleDot]meg\[EAcute]t, y ( t ) -vel pedig a n\
\[ODoubleDot]v\[EAcute]nyev\[ODoubleAcute]k mennyis\[EAcute]g\[EAcute]t a t \
id\[ODoubleAcute]pontban. Lotka a k\[ODoubleDot]vetkez\[ODoubleAcute] \
differenci\[AAcute]legyenletes modellt \[AAcute]ll\[IAcute]totta fel:\n\n     \
                                                             ",
 Cell[BoxData[
  FormBox[
   FractionBox["dx", "dt"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = a x - b x y\n                                                   \
               ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["dy", "dt"], " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"-", " ", "c"}], " ", "y"}], " ", "+", " ", 
     RowBox[{"d", " ", "x", " ", "y"}]}]}], TraditionalForm]],
  FontSlant->"Italic"],
 "\n\nahol a, b, c \[EAcute]s d pozit\[IAcute]v param\[EAcute]terek. Az a \
param\[EAcute]ter a n\[ODoubleDot]v\[EAcute]nyek \
n\[ODoubleDot]veked\[EAcute]si r\[AAcute]t\[AAcute]ja abban az esetben, ha \
nincsenek n\[ODoubleDot]v\[EAcute]nyev\[ODoubleAcute]k, m\[IAcute]g c a n\
\[ODoubleDot]v\[EAcute]nyev\[ODoubleAcute] popul\[AAcute]ci\[OAcute] cs\
\[ODoubleDot]kken\[EAcute]s\[EAcute]t jelenti, ha nincs n\[ODoubleDot]v\
\[EAcute]nyzet. A \[Dash]bxy, ill. dxy tagok  a n\[ODoubleDot]v\[EAcute]nyzet \
mennyis\[EAcute]g\[EAcute]nek cs\[ODoubleDot]kken\[EAcute]s\[EAcute]t, \
illetve az \[AAcute]llatok mennyis\[EAcute]g\[EAcute]nek n\[ODoubleDot]veked\
\[EAcute]s\[EAcute]t jelzik a t\[AAcute]pl\[AAcute]lkoz\[AAcute]s \
hat\[AAcute]s\[AAcute]ra.\n\nLotka kisz\[AAcute]m\[IAcute]totta, hogy a \
rendszernek k\[EAcute]t egyens\[UAcute]lyi helyzete van: a ( 0 , 0 ) trivi\
\[AAcute]lis egyens\[UAcute]lyi helyzet \[EAcute]s a ( c/d , a/b ) bels\
\[ODoubleAcute] egyens\[UAcute]lyi helyzet. Bizony\[IAcute]t\[AAcute]s n\
\[EAcute]lk\[UDoubleDot]l azt is meg\[AAcute]llap\[IAcute]totta, hogy ha a k\
\[EAcute]t egyens\[UAcute]lyi helyzett\[ODoubleAcute]l k\[UDoubleDot]l\
\[ODoubleDot]nb\[ODoubleDot]z\[ODoubleAcute] ( x ( 0 ) , y ( 0 ) ) pontb\
\[OAcute]l ind\[IAcute]tunk egy megold\[AAcute]st, akkor az x ( t ) \
\[EAcute]s y ( t ) f\[UDoubleDot]ggv\[EAcute]nyek periodikusan oszcill\
\[AAcute]lnak. Ez azt jelenti, hogy ha a n\[ODoubleDot]v\[EAcute]nyev\
\[ODoubleAcute] \[AAcute]llatok mennyis\[EAcute]ge n\[ODoubleAcute], akkor a \
n\[ODoubleDot]v\[EAcute]nyzet mennyis\[EAcute]ge cs\[ODoubleDot]kkenni fog, \
ha viszont annyira lecs\[ODoubleDot]kken ez a mennyis\[EAcute]g, hogy m\
\[AAcute]r nem k\[EAcute]pes az \[AAcute]llatokat eltartani, akkor az \
\[AAcute]llatok l\[EAcute]tsz\[AAcute]ma fog cs\[ODoubleDot]kkenni, ami \
viszont \[UAcute]jra a n\[ODoubleDot]v\[EAcute]nyzet mennyis\[EAcute]g\
\[EAcute]nek n\[ODoubleDot]veked\[EAcute]s\[EAcute]hez vezet, \[EAcute]s \
\[IAcute]gy tov\[AAcute]bb. Lotka egy m\[AAcute]sik \
publik\[AAcute]ci\[OAcute]j\[AAcute]ban megmutatta, hogy az \
oszcill\[AAcute]ci\[OAcute] mi\[EAcute]rt periodikus. Ezt az okozza, hogy a \
megold\[AAcute]snak z\[AAcute]rt g\[ODoubleDot]rb\[EAcute]n kell haladnia. \
Ezt a k\[ODoubleDot]vetkez\[ODoubleAcute]k\[EAcute]ppen mutathatjuk meg: \
osszuk el az els\[ODoubleAcute] egyenletet a m\[AAcute]sodikkal, \[IAcute]gy \
a\n\n                                                         ",
 StyleBox[" ( - ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["c", "x"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" + d ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["dx", "dy"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" = ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["a", "y"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" - b ) ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["dy", "dt"], TraditionalForm]],
  FontSlant->"Italic"],
 "\n\negyenletet kapjuk. Integr\[AAcute]l\[AAcute]ssal\n\n                    \
                                ",
 StyleBox["     dx ( t ) - c log x ( t ) = b y ( t ) - a log y ( t ) + K",
  FontSlant->"Italic"],
 "\n\nad\[OAcute]dik, ahol a K konstans csak a kezdeti felt\[EAcute]telt\
\[ODoubleAcute]l f\[UDoubleDot]gg. Vagyis a megold\[AAcute]s a  ",
 StyleBox["d x - c log x = b - a log y + K",
  FontSlant->"Italic"],
 "  z\[AAcute]rt g\[ODoubleDot]rb\[EAcute]n marad.\n"
}], "Text",
 CellChangeTimes->{{3.6716850106249266`*^9, 3.6716851068529105`*^9}, {
   3.6716851734429235`*^9, 3.6716853932298937`*^9}, 3.6716923226293173`*^9, 
   3.6716940301341743`*^9, {3.6717078279598308`*^9, 3.6717078483324485`*^9}},
 TextJustification->1.],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "Needs", "[", "\"\<DifferentialEquations`NDSolveProblems`\>\"", "]"}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "Needs", "[", "\"\<DifferentialEquations`NDSolveUtilities`\>\"", "]"}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "Needs", "[", "\"\<DifferentialEquations`InterpolatingFunctionAnatomy`\>\"",
    "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"system", "=", 
   RowBox[{"GetNDSolveProblem", "[", "\"\<LotkaVolterra\>\"", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"invts", "=", 
   RowBox[{"system", "[", "\"\<Invariants\>\"", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"time", "=", 
   RowBox[{"system", "[", "\"\<TimeData\>\"", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"vars", "=", 
   RowBox[{"system", "[", "\"\<DependentVariables\>\"", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"step", "=", 
    RowBox[{"3", "/", "25"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LotkaVolterraPlot", "[", 
     RowBox[{"sol_", ",", "vars_", ",", "time_", ",", 
      RowBox[{"opts___", "?", "OptionQ"}]}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "commonopts", ",", "data", ",", "data1", ",", "data2", ",", "ifuns", 
        ",", "lplot", ",", "pplot"}], "}"}], ",", 
      RowBox[{
       RowBox[{"ifuns", "=", 
        RowBox[{"First", "[", 
         RowBox[{"vars", "/.", "sol"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"data1", "=", 
        RowBox[{
         RowBox[{"Part", "[", 
          RowBox[{"ifuns", ",", "1", ",", "0"}], "]"}], "[", 
         "\"\<ValuesOnGrid\>\"", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"data2", "=", 
        RowBox[{
         RowBox[{"Part", "[", 
          RowBox[{"ifuns", ",", "2", ",", "0"}], "]"}], "[", 
         "\"\<ValuesOnGrid\>\"", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"data", "=", 
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{"data1", ",", "data2"}], "}"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"commonopts", "=", 
        RowBox[{"Sequence", "[", 
         RowBox[{
          RowBox[{"Axes", "\[Rule]", "False"}], ",", 
          RowBox[{"Frame", "\[Rule]", "True"}], ",", 
          RowBox[{"FrameLabel", "\[Rule]", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Map", "[", 
              RowBox[{"TraditionalForm", ",", "vars"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"None", ",", "None"}], "}"}]}], "]"}]}], ",", 
          RowBox[{"RotateLabel", "\[Rule]", "False"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"lplot", "=", 
        RowBox[{"ListPlot", "[", 
         RowBox[{"data", ",", 
          RowBox[{"Evaluate", "[", 
           RowBox[{"FilterRules", "[", 
            RowBox[{
             RowBox[{"{", "opts", "}"}], ",", 
             RowBox[{"Options", "[", "ListPlot", "]"}]}], "]"}], "]"}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
             RowBox[{"RGBColor", "[", 
              RowBox[{"0", ",", "1", ",", "0"}], "]"}]}], "}"}]}], ",", 
          RowBox[{"Evaluate", "[", "commonopts", "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"pplot", "=", 
        RowBox[{"ParametricPlot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", "ifuns", "]"}], ",", "time", ",", 
          RowBox[{"Evaluate", "[", 
           RowBox[{"FilterRules", "[", 
            RowBox[{
             RowBox[{"{", "opts", "}"}], ",", 
             RowBox[{"Options", "[", "ParametricPlot", "]"}]}], "]"}], "]"}], 
          ",", 
          RowBox[{"Evaluate", "[", "commonopts", "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Show", "[", 
        RowBox[{"lplot", ",", "pplot"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fesol", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{"system", ",", 
     RowBox[{"Method", "\[Rule]", "\"\<ExplicitEuler\>\""}], ",", 
     RowBox[{"StartingStepSize", "\[Rule]", "step"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"LotkaVolterraPlot", "[", 
  RowBox[{"fesol", ",", "vars", ",", "time"}], "]"}]}], "Input",
 CellChangeTimes->{{3.671686424852061*^9, 3.6716864248880887`*^9}, {
  3.671692565206318*^9, 3.6716925659187937`*^9}, {3.6716926584728985`*^9, 
  3.6716926601390195`*^9}, {3.671692703866867*^9, 3.6716927045903482`*^9}, {
  3.6716936437501383`*^9, 3.671693658059703*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0, 1, 0], PointSize[0.02], AbsoluteThickness[1.6], 
      PointBox[CompressedData["
1:eJw1kn84E3gcxzczGz17yI9+6JT1g6QnKzpF7fOt7WF44jmmKyW/y69uFBEq
ZSqKKKT8TtfMqUOFXal7ONLPi8KQYoZoY5vZzGyuu+e51/O8n9fz/v9FDmZ5
h+lgMBjf7/vXb9/8Cx5h/kMC///SaU67h6MYsHMcZsZ1PLr9kDpaWDMJodxv
ot3r8ci/5h7qiv0KLh8qcWOZughFh1tvuzYG3RuPZDS9xyE1JZfzAD8KRQYO
9cJFHbTZ+sOd2s4RmMtVKhvJOqicQ+EfEwvAgnijypaKRVVTO6ITvQVwZg/v
YMshDJLd9R7WUw9DPi0rY+uiFtKLbzNdBcMwlhS4ev0hDeyinfiJpysAPWfT
Py061eDkJcncGiiAZZpPje5h8+AZkDH0YkYAnRHGZtXmKoiLM7ja8HwExK8s
CyNmlFBj5+1CaRMCR49buV2qAP09+fQtemMQfr1SftZMAdynPgn26eOwpruu
riloFoSbua8W6RPgbLqzMLdXDo78O/22jG8wJfEZ3XRaDjei+aGVOWKIfN64
ystNDq3qgODThhLofTjRxfWQw8xlc8r9RCncCpqQL7LlsNgZn74POwOMHMgJ
VcvhKAWr3HFXDqoyRmVgwyxcHyz1FRxQwCTL//L8MwXUDpIc3I3nYCi/l5q0
Zg6ctOM16mYV1Bze0FYnUMHD6NVLPGlq0A+zKDtlvABbplwr/NMWIJd+w2r8
kRZ05M7zYX4aCLfXxpgKMag5jix1q9RAQms8wb9UB1XNFPgId2uAZEqT8xJ0
UcCyTs/+5QtwoiugROGth+xif68Y2T4PLnl3m4qIRNTBKuMG8ZRQVzC0Rv+4
PkozT7RJG5SDhN2w56qfASq+uJfOmJQCLTnfPO6JAYrzKX2Mo0/BzcQNlrJs
A2Q6amHUEDoBV8qDZalj+sg7yhW3MWAU1PNPP+76TETHN3npVW0TgAZxpp/k
EVA2pvTnr1lfYN2g976UDXoo6paHK1M5AGMzlCjWPV1kRjVppYX0AVpQ0R9b
49B+LCFeXNILxBAzv/BHWGTOHHZ7fa4HFMfeGPB8MCjZ5rJumqgbnqaO28tM
tBA1klow/74bjPrXHhfVq+HS+KfIM+QeKDq/ogZdVEFgCfYk8HuAlrn/KiFb
Cb9JK5iu8l74tUoct/flLCB20JfaxD5gtmtofj/KwRXv6GQfPQA2KUMXkj/I
II7EFPbwB+Fg//kHA6VSOGl4tlYYNgTmvfxzkgIJUEfFZ0s3CYBV97YNxU+D
e6DpW0u6EAY/2j8XGk+BVpGeAs1jMBmZv/oSQQwtFF4ev2ICHKt9SpbuF8Ha
ZsURf60ILvKKI9x0RbCLkOGbxpLAO8kPksZVIogRvT5A48iAbLXAnKwWwR1q
tcmCzSyQ7XK7rV6Ige3IMupTKmFrHuFwU/Y0YJL77VyXqOFxVs9aqZkUouqd
Pa75amFlGfGErUgG0g6X5hWDGJSSmNOxM2YWaufSMtPZOojaSmKYdM1BkW2q
B2EBhw6xrK8wGRrghhQMpBriEZXc4nXqAha1dzRahZzBo5Rzc0mnSXhUtNRJ
/TcGjzzxDn/c36iPCtX3fvGMwCFDIp5LTiChEKytftEzDIKEuiyXaiOUxB9y
ucmbB85ZQkQs1hi5fySj5S9mgOKwLMOAbYxwXk3BJQ++wZejV9a7Oxoj+WF6
uUomgBibFLaRz1L01Y2pSGX0Q3kkaTBqpREyUTV2eE11wcpAsoyRREKk+uJ3
bO4bqEn1Cj3/vV+blzv7LD+3w+Z1s2XdKiKyJHb79UT8BbGz7qvGPQgoPCaS
1pbXAv8AWZKVQg==
       "]]}, {}}, {}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJwcmnc41f/7x8/hHOMQpWGUjKyMMlpE94vsENmK0k5GKaWiD5JdRoSMjKRs
[encoded data, 34260 characters]
XX6ZlrUpoxJ8505IjBtyItdL7rrViZXwP31bibU=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0.8168760503205562, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      RowBox[{
        SubscriptBox["Y", "2"], "(", "T", ")"}], TraditionalForm], None}, {
     FormBox[
      RowBox[{
        SubscriptBox["Y", "1"], "(", "T", ")"}], TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0.8755232870806118, 4.628946439724174}, {
    0, 2.6862242722355374`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  RotateLabel->False,
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.671693621616342*^9, 3.6716936594206114`*^9}]
}, {2}]],

Cell["2. szeml\[EAcute]ltet\[EAcute]si m\[OAcute]d:", "Item",
 CellChangeTimes->{{3.6716864564263496`*^9, 3.671686463904338*^9}, {
  3.6716936682470517`*^9, 3.6716936690756054`*^9}, {3.6716962723989058`*^9, 
  3.6716962842318134`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"S", ",", "Z"}], "}"}], "=", 
   RowBox[{"NDSolveValue", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{
         RowBox[{"a", " ", 
          RowBox[{"x", "[", "t", "]"}]}], "-", 
         RowBox[{"b", " ", 
          RowBox[{"x", "[", "t", "]"}], " ", 
          RowBox[{"y", "[", "t", "]"}]}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"y", "'"}], "[", "t", "]"}], "\[Equal]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "c"}], " ", 
          RowBox[{"y", "[", "t", "]"}]}], "+", 
         RowBox[{"d", " ", 
          RowBox[{"x", "[", "t", "]"}], " ", 
          RowBox[{"y", "[", "t", "]"}]}]}]}], ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "1"}], ",", 
       RowBox[{
        RowBox[{"y", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"S", "[", "t", "]"}], ",", 
     RowBox[{"Z", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.671684746830594*^9, 3.6716847468656163`*^9}, {
  3.6716848560889053`*^9, 3.671684860591915*^9}, {3.6716921500187225`*^9, 
  3.6716921556255074`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwt1P8z1Akcx3Hp9M2Xc31R27l8SU001Cya66TX6psoXaFQciK6ojClS3U1
bJvKCkf5thlaXEV2Zcnla77kS4RF9j522WUty9pPXCtF3N7M/fCe9zz+gNfT
xC/ENUBTQ0PDTX3/feeAkY5q+dGd8Ubaqvl5EsMFx/z6KTaITD6Ve/0rCQPt
7vtFlD0wmt1r8fkLCavtK3MeUdxh2BvOmlCR+KndmvsH5TTu1JtvFo+RqE6v
tY2lXEKi/Yp1vB4S9MiYK/cot1BdRL30I4fE6Usk5S4lCWuTX3eWnySxJMkp
68NENjJCbLz08pR42U51dFzHgc/bG3RvTSU86UKiNoaHbQbpleMnxhFSeNEy
5eNfkLcQG6ZzFZiMf9+4YEEVrl7oKfOZG0Pj6zdVbTtqEEUjznD3j+FshJOu
l6IO783tE3VTRvF6KXU+/3wDML8+KlAlRy67bm7thmaEt0RvlDrKQTOoeOxW
0ALmDtW0/tMRWDYIS99YtCHuy+GkYv0RdNHclE+V7bBKpxxjhAwjeFkQv3sr
HyU9O644iWR4K/Co0LvfifBVdHrabhnc9nlKpNIucAxs+ILCIWzLjPHINHsP
zx6acbbVEMRziV2/3uzBZbP90owcKYac2tgGtQJQovV86i2k4Kb2R3SYEEjR
O99KzRtEzp2Fd82v9oIYEIgSrAeh8j8+GlgmRHNovMPnxgFo77ntWri6DxPZ
09HtxwdwXX9IR+LdD29xjHBmWgKdys0aPS5iBPv8LeE9ksD+8s9fa7+I4bJY
y7EeErCymez1LAnunYmSNSjE8Dlq07r0wADsun7gtSSLUdwdkFg5NYDYm1fv
OTiJsb2Fqyl7OAjqu7ev7L4Rw3hvoCpxjxR36KebS6/1w9bGNoEnk4LX5et7
XaMf/ZOxTWzGEE5EsI7px/VBYX2EQaHKsNVDO3b2+z5sHLMcXdApg61vaJ/o
pQh1ZuH80MhhtK0slv/jKkJcV7e/q9kI+Ad30TJnhCDdqhM060ZgPy+k0vKF
eHF01e7tYXIscra3G/QWgt1KfzSwfBRBZWEn5WuE+NTgfW15zSgYJTGvcrp7
IU6oUulfGAMnxn2FILUXUx12lCg9BfqL330IPtOL0CTT6ohyBUrOv7AM3NaL
1a2m+lKfcVT+1hRQqdsLt+78WcO5cUQwXY7fGiUw+UtWsPCZEjZCl45DTQRU
yVq2p54rsbLrBl3YSGC67ezXIY4Spm/arp1Tex7U+yRPCb+0vJ3RDQR0jGs5
mlVKPNZz0KmrJ7BBLJ3c1KnEc/eHlc41BDx9N0WEzygRZLXLgVlGoMqXw9A7
SGK+8HeRqIDAq7bgA32H1LudSGaGqV2y0+K7giMkDm7yitdSO98wh+XiQYJZ
k/nA6jmBNEFaEdOPRMWNqQe38giEH74tWRah3rHA2Z/2hMBm2kn7xbkk9lno
iqayCGzkrF3Y84REluHw0gdqm64TNObmkZg0Hb1rrfaaWVf3fYUkFAV29LBM
AotK9wcxykmwWZVeExkEJFtsUhd2kviUwI/RYBEQZkz4dHaTWJyfM8ROJyDQ
5ZixBSSmhgcSHNV+N2bO3dVHYmJJsCQujUD5n0YNkXIShQ3nTpilEig1EDGP
KEgYNdEcm1MIFDHSXE1IEn4XTRihaj/zX9VX/ZGETKtzqiKZQA6fz47/REL6
LdMiQO1Mh/izvuquURcZc3XUZnFdtmxVd4/7OSqa95BA8v9dtJ95wvVW+1/X
OsU5
     "]]}, 
   {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwV1nk8VVsUB/CLUAgNRKkQnlLpRbP8UEjpVTI0SIRMJcojpVTyGqiEhExl
[encoded data, 4980 characters]
PsZqBdY5B7i4u1j6+9QUHwG5meNX93HxP9MBMlw=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.38},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 1}, {0.4154273724743012, 1.1292565326618955`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6716847486618085`*^9, 3.6716848616401544`*^9, {3.6716865498556824`*^9, 
   3.6716865609637685`*^9}, 3.671686619566781*^9, 3.6716920501699653`*^9, 
   3.6716921566561956`*^9}]
}, {2}]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"lv", "=", 
     RowBox[{"NDSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
          RowBox[{
           RowBox[{"a", " ", 
            RowBox[{"x", "[", "t", "]"}]}], "-", 
           RowBox[{"b", " ", 
            RowBox[{"x", "[", "t", "]"}], " ", 
            RowBox[{"y", "[", "t", "]"}]}]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"y", "'"}], "[", "t", "]"}], "\[Equal]", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "c"}], " ", 
            RowBox[{"y", "[", "t", "]"}]}], "+", 
           RowBox[{"d", " ", 
            RowBox[{"x", "[", "t", "]"}], " ", 
            RowBox[{"y", "[", "t", "]"}]}]}]}], ",", 
         RowBox[{
          RowBox[{"x", "[", "0", "]"}], "\[Equal]", "x0"}], ",", 
         RowBox[{
          RowBox[{"y", "[", "0", "]"}], "\[Equal]", "y0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"x", "[", "t", "]"}], ",", 
         RowBox[{"y", "[", "t", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "20"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", "[", "t", "]"}], ",", 
          RowBox[{"y", "[", "t", "]"}]}], "}"}], "/.", "lv"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "20"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"lv", ",", 
       RowBox[{"{", "}"}]}], "}"}], ",", "None"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "x0", ",", "10", ",", 
       "\"\<a n\[ODoubleDot]v\[EAcute]ny \[ODoubleDot]sszt\[ODoubleDot]mege\>\
\""}], "}"}], ",", "5", ",", "30", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "y0", ",", "6", ",", 
       "\"\<a n\[ODoubleDot]v\[EAcute]nyev\[ODoubleAcute]k mennyis\[EAcute]ge \
a t id\[ODoubleAcute]pontban\>\""}], "}"}], ",", "2", ",", "20", ",", "1"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "1.5", ",", 
       "\"\<a n\[ODoubleDot]v\[EAcute]nyek n\[ODoubleDot]veked\[EAcute]si r\
\[AAcute]t\[AAcute]ja (nincsenek \
n\[ODoubleDot]v\[EAcute]nyev\[ODoubleAcute]k)\>\""}], "}"}], ",", "1.", ",", 
     "4."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "1.", ",", "\"\<cs\[ODoubleDot]kkent\[EAcute]s\>\""}],
       "}"}], ",", "1.", ",", "4."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "c", ",", "3.", ",", 
       "\"\<a n\[ODoubleDot]v\[EAcute]nyev\[ODoubleAcute] popul\[AAcute]ci\
\[OAcute] cs\[ODoubleDot]kken\[EAcute]se (nincs \
n\[ODoubleDot]v\[EAcute]nyzet)\>\""}], "}"}], ",", "1.", ",", "4."}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"d", ",", "1.", ",", "\"\<n\[ODoubleDot]veked\[EAcute]s\>\""}], 
      "}"}], ",", ".1", ",", "2."}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6716847893074017`*^9, 3.6716847893454313`*^9}, {
  3.671692202310706*^9, 3.6716923046666145`*^9}, {3.6716923463287354`*^9, 
  3.6716924357177477`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1.98, $CellContext`b$$ = 
    2.2800000000000002`, $CellContext`c$$ = 3.07, $CellContext`d$$ = 
    0.746, $CellContext`lv$$ = {{$CellContext`x[$CellContext`t] -> 
      InterpolatingFunction[{{0., 20.}}, {
        5, 7, 1, {844}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
         False}, CompressedData["
1:eJw9WXc0ln/ctlJUSDwD2dyP7X4e7XFfRqhINPRTtEhpoIxIEmkYhZJZiJCi
[encoded data, 8460 characters]
UYLt2rQPHNjr0u/WfeWAHb3Q0nGUg//7q6SH/wGBmJaB
        "], {Developer`PackedArrayForm, CompressedData["
1:eJwd1gErIAASBlC35yRJkiRJTpIkSZIkSZLkJEmSJEmSnCRJkiRJkiRJkiRJ
kiRJkiRJ2yZJkiRJkiRJknRvb+r9gvmmb/7d8N+Ktn8EBAT8558B/59fBBJE
MCGEEkY4EUQSRTQxxBJHPAkkkkQyKaSSRjoZZJJFNjnkkkc+BRRSRDEllFJG
ORVUUkU1NdRSRz0NNNJEMy200kY7HXTSRTc99NJHPwMMMsQwI4wyxjgTTDLF
NDPMMsc8CyyyxDIrrLLGOhtsssU2O+yyxz4HHHLEMSf85g+nnHHOBZdccc0N
t9xxzwOPPPHMC6+88c4Hn3zxzQ8BgvCLQIIIJoRQwggngkiiiCaGWOKIJ4FE
kkgmhVTSSCeDTLLIJodc8singEKKKKaEUsoop4JKqqimhlrqqKeBRppopoVW
/oa8nQ466aKbHnrpo58BBhlimBFGGWOcCSaZYpoZZpljngUWWWKZFVZZY50N
Ntlimx122WOfAw454pgTfvOHU84454JLrrjmhlvuuOeBR5545oVX3njng0++
+OaHv8f/i0CCCCaEUMIIJ4JIoogmhljiiCeBRJJIJoVU0kgng0yyyCaHXPLI
p4BCiiimhFLKKKeCSqqopoZa6qingUaaaKaFVtpop4NOuuimh1766GeAQYYY
ZoRRxhhngkmmmGaGWeaYZ4FFllhmhVXWWGeDTbbYZodd9tjngEOOOOaE3/zh
lDPOueCSK6654ZY77nngkSeeeeGVN9754JMvvvkhQAf8IpAgggkhlDDCiSCS
KKKJIZY44kkgkSSSSSGVNNLJIJMssskhlzzyKaCQIoopoZQyyqmgkiqqqaGW
OuppoJEmmmmhlTba6aCTLrrpoZc++hlgkCGGGWGUMcaZYJIppplhljnmWWCR
JZZZYZU11tlgky222WGXPfY54JAjjjnhN3845YxzLrjkimtuuOWOex545Iln
XnjljXc++OSLb374W/y/CCSIYEIIJYxwIogkimhiiCWOeBJIJIlkUkgljXQy
yCSLbHLIJY98CiikiGJKKKWMciqopIpqaqiljnoaaKSJZlpopY12Ouiki256
6KWPfgYYZIhhRhhljHEmmGSKaWaYZY55FlhkiWVWWGWNdTbYZIttdthlj30O
OOSIY074zR9OOeOcCy654pobbrnjngceeeKZF155450PPvnimx8C/mX/BBJE
MCGEEkY4EUQSRTQxxBJHPAkkkkQyKaSSRjoZZJJFNjnkkkc+BRRSRDEllFJG
ORVUUkU1NdRSRz0NNNJEMy200kY7HXTSRTc99NJHPwMMMsQwI4wyxjgTTDLF
NDPMMsc8CyyyxDIrrLLGOhtsssU2O+yyxz4HHHLEMSf85g+nnHHOBZdccc0N
t9xxzwOPPPHMC6+88c4Hn3zxzQ9/n/5fBBJEMCGEEkY4EUQSRTQxxBJHPAkk
kkQyKaSSRjoZZJJFNjnkkkc+BRRSRDEllFJGORVUUkU1NdRSRz0NNNJEMy20
0kY7HXTSRTc99NJHPwMMMsQwI4wyxjgTTDLFNP8DnKOfPQ==
         "], CompressedData["
1:eJwt12c8198XAHCipCJJVFJWWdl7nvO1IvSThgaFiIyyR5KMIquQUZJCiKzs
[encoded data, 17400 characters]
wbToA8sN1afwP86/Z0o=
         "]}, {Automatic}][$CellContext`t], $CellContext`y[$CellContext`t] -> 
      InterpolatingFunction[{{0., 20.}}, {
        5, 7, 1, {844}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
         False}, CompressedData["
1:eJw9WXc0ln/ctlJUSDwD2dyP7X4e7XFfRqhINPRTtEhpoIxIEmkYhZJZiJCi
[encoded data, 8460 characters]
UYLt2rQPHNjr0u/WfeWAHb3Q0nGUg//7q6SH/wGBmJaB
        "], {Developer`PackedArrayForm, CompressedData["
1:eJwd1gErIAASBlC35yRJkiRJTpIkSZIkSZLkJEmSJEmSnCRJkiRJkiRJkiRJ
kiRJkiRJ2yZJkiRJkiRJknRvb+r9gvmmb/7d8N+Ktn8EBAT8558B/59fBBJE
MCGEEkY4EUQSRTQxxBJHPAkkkkQyKaSSRjoZZJJFNjnkkkc+BRRSRDEllFJG
ORVUUkU1NdRSRz0NNNJEMy200kY7HXTSRTc99NJHPwMMMsQwI4wyxjgTTDLF
NDPMMsc8CyyyxDIrrLLGOhtsssU2O+yyxz4HHHLEMSf85g+nnHHOBZdccc0N
t9xxzwOPPPHMC6+88c4Hn3zxzQ8BgvCLQIIIJoRQwggngkiiiCaGWOKIJ4FE
kkgmhVTSSCeDTLLIJodc8singEKKKKaEUsoop4JKqqimhlrqqKeBRppopoVW
/oa8nQ466aKbHnrpo58BBhlimBFGGWOcCSaZYpoZZpljngUWWWKZFVZZY50N
Ntlimx122WOfAw454pgTfvOHU84454JLrrjmhlvuuOeBR5545oVX3njng0++
+OaHv8f/i0CCCCaEUMIIJ4JIoogmhljiiCeBRJJIJoVU0kgng0yyyCaHXPLI
p4BCiiimhFLKKKeCSqqopoZa6qingUaaaKaFVtpop4NOuuimh1766GeAQYYY
ZoRRxhhngkmmmGaGWeaYZ4FFllhmhVXWWGeDTbbYZodd9tjngEOOOOaE3/zh
lDPOueCSK6654ZY77nngkSeeeeGVN9754JMvvvkhQAf8IpAgggkhlDDCiSCS
KKKJIZY44kkgkSSSSSGVNNLJIJMssskhlzzyKaCQIoopoZQyyqmgkiqqqaGW
OuppoJEmmmmhlTba6aCTLrrpoZc++hlgkCGGGWGUMcaZYJIppplhljnmWWCR
JZZZYZU11tlgky222WGXPfY54JAjjjnhN3845YxzLrjkimtuuOWOex545Iln
XnjljXc++OSLb374W/y/CCSIYEIIJYxwIogkimhiiCWOeBJIJIlkUkgljXQy
yCSLbHLIJY98CiikiGJKKKWMciqopIpqaqiljnoaaKSJZlpopY12Ouiki256
6KWPfgYYZIhhRhhljHEmmGSKaWaYZY55FlhkiWVWWGWNdTbYZIttdthlj30O
OOSIY074zR9OOeOcCy654pobbrnjngceeeKZF155450PPvnimx8C/mX/BBJE
MCGEEkY4EUQSRTQxxBJHPAkkkkQyKaSSRjoZZJJFNjnkkkc+BRRSRDEllFJG
ORVUUkU1NdRSRz0NNNJEMy200kY7HXTSRTc99NJHPwMMMsQwI4wyxjgTTDLF
NDPMMsc8CyyyxDIrrLLGOhtsssU2O+yyxz4HHHLEMSf85g+nnHHOBZdccc0N
t9xxzwOPPPHMC6+88c4Hn3zxzQ9/n/5fBBJEMCGEEkY4EUQSRTQxxBJHPAkk
kkQyKaSSRjoZZJJFNjnkkkc+BRRSRDEllFJGORVUUkU1NdRSRz0NNNJEMy20
0kY7HXTSRTc99NJHPwMMMsQwI4wyxjgTTDLFNP8DnKOfPQ==
         "], CompressedData["
1:eJwt13c0198fB3B77735fHw+9t77XvmSirIlElmRMhJJZkWoEEJUZGZviryv
[encoded data, 17400 characters]
V4jTcjW2nJFIwSCQCnaf1++PclVi/wOyDn63
         "]}, {Automatic}][$CellContext`t]}}, $CellContext`x0$$ = 
    18, $CellContext`y0$$ = 8, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`lv$$], {}}, 0}, {{
       Hold[$CellContext`x0$$], 10, 
       "a n\[ODoubleDot]v\[EAcute]ny \[ODoubleDot]sszt\[ODoubleDot]mege"}, 5, 
      30, 1}, {{
       Hold[$CellContext`y0$$], 6, 
       "a n\[ODoubleDot]v\[EAcute]nyev\[ODoubleAcute]k mennyis\[EAcute]ge a t \
id\[ODoubleAcute]pontban"}, 2, 20, 1}, {{
       Hold[$CellContext`a$$], 1.5, 
       "a n\[ODoubleDot]v\[EAcute]nyek n\[ODoubleDot]veked\[EAcute]si r\
\[AAcute]t\[AAcute]ja (nincsenek \
n\[ODoubleDot]v\[EAcute]nyev\[ODoubleAcute]k)"}, 1., 4.}, {{
       Hold[$CellContext`b$$], 1., "cs\[ODoubleDot]kkent\[EAcute]s"}, 1., 
      4.}, {{
       Hold[$CellContext`c$$], 3., 
       "a n\[ODoubleDot]v\[EAcute]nyev\[ODoubleAcute] popul\[AAcute]ci\
\[OAcute] cs\[ODoubleDot]kken\[EAcute]se (nincs \
n\[ODoubleDot]v\[EAcute]nyzet)"}, 1., 4.}, {{
       Hold[$CellContext`d$$], 1., "n\[ODoubleDot]veked\[EAcute]s"}, 0.1, 
      2.}}, Typeset`size$$ = {432., {130., 138.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`x0$12490$$ = 0, $CellContext`y0$12491$$ = 
    0, $CellContext`a$12492$$ = 0, $CellContext`b$12493$$ = 
    0, $CellContext`c$12494$$ = 0, $CellContext`d$12495$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 1.5, $CellContext`b$$ = 
        1., $CellContext`c$$ = 3., $CellContext`d$$ = 
        1., $CellContext`lv$$ = {}, $CellContext`x0$$ = 10, $CellContext`y0$$ = 
        6}, "ControllerVariables" :> {
        Hold[$CellContext`x0$$, $CellContext`x0$12490$$, 0], 
        Hold[$CellContext`y0$$, $CellContext`y0$12491$$, 0], 
        Hold[$CellContext`a$$, $CellContext`a$12492$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$12493$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$12494$$, 0], 
        Hold[$CellContext`d$$, $CellContext`d$12495$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`lv$$ = 
        NDSolve[{
          Derivative[
            1][$CellContext`x][$CellContext`t] == $CellContext`a$$ \
$CellContext`x[$CellContext`t] - ($CellContext`b$$ \
$CellContext`x[$CellContext`t]) $CellContext`y[$CellContext`t], 
           Derivative[
            1][$CellContext`y][$CellContext`t] == (-$CellContext`c$$) \
$CellContext`y[$CellContext`t] + ($CellContext`d$$ \
$CellContext`x[$CellContext`t]) $CellContext`y[$CellContext`t], \
$CellContext`x[0] == $CellContext`x0$$, $CellContext`y[
            0] == $CellContext`y0$$}, {
           $CellContext`x[$CellContext`t], 
           $CellContext`y[$CellContext`t]}, {$CellContext`t, 0, 20}]; Plot[
         Evaluate[
          ReplaceAll[{
            $CellContext`x[$CellContext`t], 
            $CellContext`y[$CellContext`t]}, $CellContext`lv$$]], \
{$CellContext`t, 0, 20}, PlotRange -> All]), 
      "Specifications" :> {{{$CellContext`lv$$, {}}, 0, ControlType -> 
         None}, {{$CellContext`x0$$, 10, 
          "a n\[ODoubleDot]v\[EAcute]ny \[ODoubleDot]sszt\[ODoubleDot]mege"}, 
         5, 30, 1}, {{$CellContext`y0$$, 6, 
          "a n\[ODoubleDot]v\[EAcute]nyev\[ODoubleAcute]k mennyis\[EAcute]ge \
a t id\[ODoubleAcute]pontban"}, 2, 20, 
         1}, {{$CellContext`a$$, 1.5, 
          "a n\[ODoubleDot]v\[EAcute]nyek n\[ODoubleDot]veked\[EAcute]si r\
\[AAcute]t\[AAcute]ja (nincsenek \
n\[ODoubleDot]v\[EAcute]nyev\[ODoubleAcute]k)"}, 1., 
         4.}, {{$CellContext`b$$, 1., "cs\[ODoubleDot]kkent\[EAcute]s"}, 1., 
         4.}, {{$CellContext`c$$, 3., 
          "a n\[ODoubleDot]v\[EAcute]nyev\[ODoubleAcute] popul\[AAcute]ci\
\[OAcute] cs\[ODoubleDot]kken\[EAcute]se (nincs \
n\[ODoubleDot]v\[EAcute]nyzet)"}, 1., 
         4.}, {{$CellContext`d$$, 1., "n\[ODoubleDot]veked\[EAcute]s"}, 0.1, 
         2.}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{614., {253., 260.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.671692247085131*^9, 3.6716922746435475`*^9}, 
   3.6716923071372643`*^9, {3.6716923525412474`*^9, 3.6716923720122585`*^9}, {
   3.6716924072308006`*^9, 3.6716924361690445`*^9}}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["9.", "Subsubsection",
 CellChangeTimes->{{3.6716858487307563`*^9, 3.67168584917405*^9}}],

Cell["Newton-f\[EAcute]le mozg\[AAcute]segyenlet megold\[AAcute]sa:", "Text",
 CellChangeTimes->{{3.6716940694520073`*^9, 3.6716940908742533`*^9}}],

Cell[TextData[{
 "Adott a k\[ODoubleDot]vetkez\[ODoubleAcute] Newton-f\[EAcute]le mozg\
\[AAcute]segyenlet\n\n                                                        \
       ",
 StyleBox["     x\[CloseCurlyDoubleQuote] ( t ) = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["1", "m"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" F ( x , x\[CloseCurlyQuote] , t )\n                               \
                                     x ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\n                                                                 \
   x\[CloseCurlyQuote] ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["v", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" .",
  FontSlant->"Italic"],
 "\n                                                                    \nA \
Newton-f\[EAcute]le mozg\[AAcute]segyenlet m\[AAcute]sodrend\[UDoubleAcute]. \
Az Euer-m\[OAcute]dszer m\[EAcute]gis alkalmazhat\[OAcute] r\[AAcute]. Vezess\
\[UDoubleDot]nk be egy \[UAcute]j v\[AAcute]ltoz\[OAcute]t (a \
sebess\[EAcute]get) \[EAcute]s bontsuk sz\[EAcute]t a \
differenci\[AAcute]legyenletet k\[EAcute]t els\[ODoubleAcute]rend\
\[UDoubleAcute] differenci\[AAcute]legyenletre! \n \n                         \
                                          ",
 StyleBox[" v ( t ) = x\[CloseCurlyQuote] ( t )\n                             \
                                       v\[CloseCurlyQuote] ( t ) = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["1", "m"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" F ( x , v , t )\n                                                 \
                   x ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["\n                                                                 \
   v ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["v", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" .",
  FontSlant->"Italic"],
 "\n                                                                    \n \
Majd a                                                         \n             \
                                                      ",
 StyleBox[" y ( t + \[CapitalDelta]t ) = y ( t ) + f ( t , y ( t ) ) \
\[CapitalDelta]t ",
  FontSlant->"Italic"],
 "\n                                                                    \n\
kifejez\[EAcute]s alapj\[AAcute]n l\[EAcute]p\[EAcute]senk\[EAcute]nt iter\
\[AAcute]ljuk az egyenleteket, teh\[AAcute]t \n\n                             \
                                      ",
 StyleBox[" x ( t + \[CapitalDelta]t ) = x ( t ) + v ( t ) \[CapitalDelta]t   \
      \n                                                                    v \
( t + \[CapitalDelta]t ) = v ( t ) + ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   FractionBox["1", "m"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" F ( x , v , t ) \[CapitalDelta]t ,",
  FontSlant->"Italic"],
 "\n                                                                          \
                                                      \nterm\[EAcute]szetesen \
az iter\[AAcute]ci\[OAcute] az els\[ODoubleAcute] l\[EAcute]p\[EAcute]sben  ",
 StyleBox["x ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 "  \[EAcute]s  ",
 StyleBox["v ( ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox[" ) = ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["v", "0"], TraditionalForm]],
  FontSlant->"Italic"],
 StyleBox["  ",
  FontSlant->"Italic"],
 "kezdeti felt\[EAcute]teleket kell felhaszn\[AAcute]lni.\n                   \
                                                 "
}], "Text",
 CellChangeTimes->{{3.671704205477318*^9, 3.671704214962656*^9}, 
   3.671704314802388*^9, {3.6717045639907618`*^9, 3.6717053336297016`*^9}},
 TextJustification->1.]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\[CapitalEAcute]rdekess\[EAcute]gek",
 FontFamily->"Gill Sans MT",
 FontColor->RGBColor[1., 0.5019607843137255, 0.]]], "Subsection",
 CellChangeTimes->{{3.6711960361675515`*^9, 3.671196062930993*^9}}],

Cell["\<\
Mivel a numerikus m\[OAcute]dszereket csak sz\[AAcute]m\[IAcute]t\[OAcute]g\
\[EAcute]pen lehet \[EAcute]rdemben alkalmazni, ez\[EAcute]rt a \
sz\[AAcute]mol\[AAcute]s id\[ODoubleAcute]ig\[EAcute]nye \[EAcute]s pontoss\
\[AAcute]ga (amelyek egym\[AAcute]snak ellentmond\[OAcute] \
felt\[EAcute]telek) szempontj\[AAcute]b\[OAcute]l bizonyos egyenletek eset\
\[EAcute]ben egyes m\[OAcute]dszerek el\[ODoubleAcute]ny\[ODoubleDot]seben \
alkalmazhat\[OAcute]k m\[AAcute]sokn\[AAcute]l. \[CapitalEAcute]ppen ez\
\[EAcute]rt rengeteg m\[AAcute]s m\[OAcute]dszer is van \
differenci\[AAcute]legyenletek numerikus megold\[AAcute]s\[AAcute]ra: Heun-m\
\[OAcute]dszer, Runge-Kutta m\[OAcute]dszerek, Simpson m\[OAcute]dszer, \
Taylor formula alapj\[AAcute]n is megoldhat\[OAcute] m\[OAcute]dszer, stb. A \
m\[OAcute]dszerek k\[ODoubleDot]z\[ODoubleDot]tt \[AAcute]ltal\[AAcute]ban \
csak a k\[ODoubleDot]zel\[IAcute]t\[EAcute]s pontoss\[AAcute]g\[AAcute]ban, \
\[EAcute]s a sz\[AAcute]mol\[AAcute]s m\[OAcute]dszer\[EAcute]ben van k\
\[UDoubleDot]l\[ODoubleDot]nbs\[EAcute]g.\
\>", "Text",
 CellChangeTimes->{{3.6711982991600847`*^9, 3.6711985275654936`*^9}, {
  3.671528938112714*^9, 3.6715289434959035`*^9}},
 TextJustification->1.],

Cell["", "Text",
 CellFrame->{{0, 0}, {0, 0}},
 ShowCellBracket->False,
 CellChangeTimes->{
  3.6714322460485387`*^9, {3.6714328327686405`*^9, 3.6714328549975724`*^9}},
 FontColor->RGBColor[0.597406, 0, 0.0527047]],

Cell["\<\
Heun \[EAcute]s Runge-Kutta m\[OAcute]dszerek alkalmaz\[AAcute]sa k\
\[UDoubleDot]l\[ODoubleDot]nb\[ODoubleDot]z\[ODoubleAcute] f\[UDoubleDot]ggv\
\[EAcute]nyeken:\
\>", "Text",
 CellChangeTimes->{{3.671528953521615*^9, 3.671529005409172*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f1", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", "y"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f2", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{"-", "y"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f3", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{"-", "x"}], " ", 
    SuperscriptBox["y", "2"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f4", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", " ", 
   RowBox[{
    SuperscriptBox["x", "2"], "-", "y"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f5", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], " ", "y"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f6", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{
    SuperscriptBox["y", "2"], 
    RowBox[{"(", 
     RowBox[{"x", "-", 
      SuperscriptBox["x", "3"]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f7", "[", 
     RowBox[{"x_", ",", "y_"}], "]"}], ":=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "20"}], " ", "y"}], "+", 
     RowBox[{"20", " ", "x"}], "+", "21"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"combPair", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{"x", ",", "y"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"combList", "[", 
    RowBox[{"x_List", ",", "y_List"}], "]"}], ":=", 
   RowBox[{"MapThread", "[", 
    RowBox[{"combPair", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"exsol", "[", 
   RowBox[{"a_", ",", "f_", ",", "y0_", ",", "t_"}], "]"}], ":=", 
  RowBox[{"DSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"y", "'"}], "[", "t", "]"}], "==", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", 
         RowBox[{"y", "[", "t", "]"}]}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"y", "[", "a", "]"}], "\[Equal]", "y0"}]}], "}"}], ",", "y", 
    ",", "t"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plotoptions", "=", 
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"PlotRangePadding", "\[Rule]", "0.25"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "400"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rkgenStep", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"y0_", ",", "x0_", ",", "h_", ",", "f_"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"A_", ",", "b_", ",", "c_"}], "}"}]}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s", ",", "k"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"s", "=", 
       RowBox[{"Length", "[", "b", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"k", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "s"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"k", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", 
       RowBox[{"f", "[", 
        RowBox[{"x0", ",", "y0"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"k", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "=", 
         RowBox[{"f", "[", " ", 
          RowBox[{
           RowBox[{"x0", "+", 
            RowBox[{
             RowBox[{"c", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "h"}]}], ",", " ", 
           RowBox[{"y0", "+", 
            RowBox[{"h", "  ", 
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"A", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"i", "-", "1"}], ",", "j"}], "]"}], "]"}], " ", 
                RowBox[{"k", "[", 
                 RowBox[{"[", "j", "]"}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"j", ",", "1", ",", 
                 RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}]}]}]}], " ", 
          "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "2", ",", "s"}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"ynext", "=", " ", 
       RowBox[{"y0", "+", 
        RowBox[{"h", " ", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"b", "[", 
             RowBox[{"[", "i", "]"}], "]"}], " ", 
            RowBox[{"k", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "s"}], "}"}]}], "]"}]}]}]}]}]}], 
    "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rkgen", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a_", ",", "r_"}], "}"}], ",", "f_", ",", "y0_", ",", "n_", ",", 
     RowBox[{"{", 
      RowBox[{"A_", ",", "b_", ",", "c_"}], "}"}]}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"h", ",", "x", ",", " ", "y", ",", "lsg", ",", "i"}], "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"h", "=", 
       FractionBox[
        RowBox[{"r", "-", "a"}], "n"]}], ";", "\[IndentingNewLine]", 
      RowBox[{"x", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"a", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"i", "-", "1"}], ")"}], "h"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"y", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"y", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", "y0"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"y", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "=", 
         RowBox[{"rkgenStep", "[", " ", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y", "[", 
              RowBox[{"[", 
               RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", 
             RowBox[{"x", "[", 
              RowBox[{"[", 
               RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", "h", ",", "f"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"A", ",", "b", ",", "c"}], "}"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "2", ",", 
          RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"lsg", "=", 
       RowBox[{"combList", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rkheun", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a_", ",", "r_"}], "}"}], ",", "f_", ",", "y0_", ",", "n_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"A", ",", "b", ",", "c"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"A", "=", 
       RowBox[{"{", 
        RowBox[{"{", 
         FractionBox["1", "2"], "}"}], "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"b", "=", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"c", "=", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         FractionBox["1", "2"]}], "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"rkgen", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"a", ",", "r"}], "}"}], ",", "f", ",", "y0", ",", "n", ",", 
        RowBox[{"{", 
         RowBox[{"A", ",", "b", ",", "c"}], "}"}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rk4", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a_", ",", "r_"}], "}"}], ",", "f_", ",", "y0_", ",", "n_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"A", ",", "b", ",", "c"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"A", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          FractionBox["1", "2"], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           FractionBox["1", "2"]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"b", "=", 
       RowBox[{"{", 
        RowBox[{
         FractionBox["1", "6"], ",", 
         FractionBox["1", "3"], ",", 
         FractionBox["1", "3"], ",", 
         FractionBox["1", "6"]}], "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"c", "=", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         FractionBox["1", "2"], ",", 
         FractionBox["1", "2"], ",", "1"}], "}"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"rkgen", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"a", ",", "r"}], "}"}], ",", "f", ",", "y0", ",", "n", ",", 
        RowBox[{"{", 
         RowBox[{"A", ",", "b", ",", "c"}], "}"}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"y", "[", "t", "]"}], "/.", 
           RowBox[{"exsol", "[", 
            RowBox[{"a", ",", "f", ",", "c", ",", "t"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "a", ",", 
           RowBox[{"b", "+", "0.1"}]}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"Thickness", "[", "0.005", "]"}]}], ",", 
         RowBox[{"Evaluate", "[", "plotoptions", "]"}], ",", 
         RowBox[{"AxesOrigin", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], ",", 
         RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Row", "[", 
           RowBox[{"{", 
            RowBox[{"\"\<l\[EAcute]p\[EAcute]sek sz\[AAcute]ma= \>\"", ",", 
             FractionBox[
              RowBox[{"b", "-", "a"}], "nn"]}], "}"}], "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListPlot", " ", "[", 
        RowBox[{
         RowBox[{"Tooltip", "[", 
          RowBox[{"Check", "[", 
           RowBox[{
            RowBox[{"m\[OAcute]dszer", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"a", ",", "b"}], "}"}], ",", "f", ",", "c", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"MemberQ", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"f3", ",", "f5", ",", "f6"}], "}"}], ",", "f"}], 
                 "]"}], ",", 
                RowBox[{"N", "[", "nn", "]"}], ",", "nn"}], "]"}]}], "]"}], 
            ",", 
            RowBox[{"{", "a", "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"ColorData", "[", 
             RowBox[{"1", ",", "2"}], "]"}], ",", 
            RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Check", "[", 
          RowBox[{
           RowBox[{"m\[OAcute]dszer", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"a", ",", "b"}], "}"}], ",", "f", ",", "c", ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"MemberQ", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"f3", ",", "f5", ",", "f6"}], "}"}], ",", "f"}], 
                "]"}], ",", 
               RowBox[{"N", "[", "nn", "]"}], ",", "nn"}], "]"}]}], "]"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"a", ",", "c"}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"ColorData", "[", 
            RowBox[{"1", ",", "2"}], "]"}], "}"}]}], ",", 
         RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"400", ",", "400"}], "}"}]}], ",", 
     RowBox[{"ImagePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"10", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10", ",", "40"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"f", ",", "f1", ",", "\"\<f\[UDoubleDot]ggv\[EAcute]ny\>\""}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"f1", "\[Rule]", "\"\<y\>\""}], ",", 
       RowBox[{"f2", "\[Rule]", "\"\<-y\>\""}], ",", 
       RowBox[{
       "f3", "\[Rule]", "\"\<-x \!\(\*SuperscriptBox[\(y\), \(2\)]\)\>\""}], 
       ",", 
       RowBox[{
       "f4", "\[Rule]", "\"\<\!\(\*SuperscriptBox[\(x\), \(2\)]\)-y\>\""}], 
       ",", 
       RowBox[{"f5", "\[Rule]", "\"\<cos(x) y\>\""}], ",", 
       RowBox[{
       "f6", "\[Rule]", 
        "\"\<\!\(\*SuperscriptBox[\(y\), \
\(2\)]\)(x-\!\(\*SuperscriptBox[\(x\), \(3\)]\))\>\""}], ",", 
       RowBox[{"f7", "\[Rule]", "\"\<-20y+20x+21\>\""}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "PopupMenu"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "0"}], "}"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ",", 
     RowBox[{"1", "/", "2"}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}], ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "2"}], "}"}], ",", "1", ",", "3", ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}], ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "1", ",", "\"\<y0\>\""}], "}"}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"3", "/", "2"}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}], ",", 
     RowBox[{"Exclusions", "\[Rule]", "0"}], ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "nn", ",", "2", ",", "\"\<l\[EAcute]p\[EAcute]sek sz\[AAcute]ma\>\""}], 
      "}"}], ",", "1", ",", "50", ",", "1", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}], ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "m\[OAcute]dszer", ",", "rkheun", ",", "\"\<m\[OAcute]dszer\>\""}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"rkheun", "\[Rule]", "\"\<Heun\>\""}], ",", 
       RowBox[{"rk4", "\[Rule]", "\"\<Runge-Kutta\>\""}]}], "}"}]}], "}"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"TrackedSymbols", "\[Rule]", "Manipulate"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.35696210375764*^9, {3.410061864849578*^9, 3.410061867314378*^9}, {
   3.410061906782378*^9, 3.410062003096778*^9}, {3.410062077867578*^9, 
   3.410062273382378*^9}, {3.410062304098778*^9, 3.4100623291679783`*^9}, {
   3.410062376593978*^9, 3.410062379058778*^9}, {3.410062453158778*^9, 
   3.410062472143978*^9}, {3.410062517321978*^9, 3.410062525387178*^9}, {
   3.4100626357349777`*^9, 3.410062650898178*^9}, {3.4100628586155777`*^9, 
   3.410063011183578*^9}, {3.4100630678915777`*^9, 3.410063170913978*^9}, {
   3.410063212472378*^9, 3.410063213252378*^9}, {3.410063253658778*^9, 
   3.410063289384778*^9}, {3.4100633258449783`*^9, 3.4100633268901777`*^9}, {
   3.410063548862578*^9, 3.410063562793378*^9}, {3.410064022645578*^9, 
   3.410064024361578*^9}, {3.4100640836415777`*^9, 3.4100640930951777`*^9}, 
   3.4100655312325783`*^9, {3.4100664681475782`*^9, 3.4100664720787783`*^9}, {
   3.4100666664235783`*^9, 3.410066709931978*^9}, {3.410066873405978*^9, 
   3.410066903919578*^9}, {3.410066946601178*^9, 3.4100669468975782`*^9}, {
   3.410067038019178*^9, 3.4100670616843777`*^9}, {3.410067363750978*^9, 
   3.4100673697725782`*^9}, {3.410067473219178*^9, 3.410067485246778*^9}, {
   3.410068049726178*^9, 3.410068061972178*^9}, {3.410068111907778*^9, 
   3.4100682006717777`*^9}, 3.410069338859578*^9, {3.410073546210578*^9, 
   3.410073632806178*^9}, {3.410073671917378*^9, 3.410073692696578*^9}, {
   3.4100738039783783`*^9, 3.4100738044463778`*^9}, {3.4100738806679783`*^9, 
   3.4100738930387783`*^9}, 3.410073958920578*^9, {3.410073992304578*^9, 
   3.410073994535378*^9}, 3.410074044074778*^9, {3.4100741618547783`*^9, 
   3.410074162182378*^9}, {3.4100743007033777`*^9, 3.410074820542178*^9}, {
   3.410075196088778*^9, 3.410075276169778*^9}, {3.410075462255578*^9, 
   3.410075483565178*^9}, {3.410075544467578*^9, 3.410075609082778*^9}, 
   3.410075768049778*^9, {3.410076570962378*^9, 3.4100765741447783`*^9}, {
   3.410076624251978*^9, 3.410076659336378*^9}, {3.410077027778178*^9, 
   3.410077029962178*^9}, 3.410077201896778*^9, {3.410077259929778*^9, 
   3.410077261567778*^9}, 3.410077314157778*^9, {3.4100776507693777`*^9, 
   3.4100776598329782`*^9}, {3.410079034145978*^9, 3.4100790431939783`*^9}, {
   3.410079088605578*^9, 3.410079089619578*^9}, {3.4100791209755783`*^9, 
   3.410079131864378*^9}, {3.4100791956527777`*^9, 3.410079235245578*^9}, {
   3.410079268645178*^9, 3.410079323884778*^9}, {3.410079411361978*^9, 
   3.410079419193178*^9}, {3.410079476398378*^9, 3.4100794814643784`*^9}, {
   3.4100871318275795`*^9, 3.4100871462263794`*^9}, {3.410087180546379*^9, 
   3.4100874190079794`*^9}, {3.4100879977869797`*^9, 
   3.4100880227469797`*^9}, {3.4100882604285793`*^9, 3.410088563614579*^9}, {
   3.4100885996661797`*^9, 3.4100887456977797`*^9}, {3.4100887931997795`*^9, 
   3.4100888014521794`*^9}, {3.410088843369379*^9, 3.4100888770873795`*^9}, {
   3.4100889610645795`*^9, 3.4100890581035795`*^9}, {3.410092368599079*^9, 
   3.4100924167440796`*^9}, {3.410092515349079*^9, 3.4100925434830794`*^9}, {
   3.4100929218330793`*^9, 3.4100929254990797`*^9}, {3.4100932665703793`*^9, 
   3.4100932690553794`*^9}, 3.410093421164379*^9, {3.4101015675006*^9, 
   3.4101015852066*^9}, {3.4101021493962*^9, 3.4101021695982*^9}, {
   3.4101035851164*^9, 3.4101035987508*^9}, {3.4101036316823997`*^9, 
   3.4101036321036*^9}, {3.4101041003688*^9, 3.4101041047836*^9}, {
   3.4101041892264*^9, 3.4101041905992002`*^9}, 3.4101042331716003`*^9, {
   3.410236834016163*^9, 3.410236840692963*^9}, {3.4102373401621633`*^9, 
   3.410237347384963*^9}, {3.4102374402813635`*^9, 3.4102374514041634`*^9}, {
   3.410237589778163*^9, 3.410237615440163*^9}, {3.410237646390563*^9, 
   3.410237657372963*^9}, {3.410237731414363*^9, 3.410237731866763*^9}, {
   3.410237818245963*^9, 3.410237855139963*^9}, {3.410237920098363*^9, 
   3.410237920472763*^9}, {3.4102379918739634`*^9, 3.410237993901963*^9}, {
   3.410238943396963*^9, 3.4102389440053635`*^9}, {3.410239016670163*^9, 
   3.410239019072563*^9}, 3.411729594760832*^9, 3.411729740201432*^9, 
   3.411732174306432*^9, {3.4117359821533923`*^9, 3.4117359850439987`*^9}, {
   3.412002527619*^9, 3.4120026240944*^9}, {3.4120054264888*^9, 
   3.4120054318328*^9}, 3.4120066743248*^9, 3.4120073226762*^9, {
   3.671528837450144*^9, 3.6715289136503654`*^9}, {3.6715290261710463`*^9, 
   3.671529045837178*^9}, {3.671709516629368*^9, 3.671709517435907*^9}, {
   3.671709604008921*^9, 3.6717096119912567`*^9}, {3.671709697763591*^9, 
   3.6717097124253874`*^9}},
 CellID->44981821],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1, $CellContext`b$$ = 
    2, $CellContext`c$$ = 
    3, $CellContext`f$$ = $CellContext`f1, $CellContext`m\[OAcute]dszer$$ = \
$CellContext`rkheun, $CellContext`nn$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`f$$], $CellContext`f1, 
       "f\[UDoubleDot]ggv\[EAcute]ny"}, {$CellContext`f1 -> 
       "y", $CellContext`f2 -> "-y", $CellContext`f3 -> 
       "-x \!\(\*SuperscriptBox[\(y\), \(2\)]\)", $CellContext`f4 -> 
       "\!\(\*SuperscriptBox[\(x\), \(2\)]\)-y", $CellContext`f5 -> 
       "cos(x) y", $CellContext`f6 -> 
       "\!\(\*SuperscriptBox[\(y\), \(2\)]\)(x-\!\(\*SuperscriptBox[\(x\), \
\(3\)]\))", $CellContext`f7 -> "-20y+20x+21"}}, {{
       Hold[$CellContext`a$$], 0}, 
      Rational[-1, 2], 
      Rational[1, 2], 
      Rational[1, 4]}, {{
       Hold[$CellContext`b$$], 2}, 1, 3, 
      Rational[1, 4]}, {{
       Hold[$CellContext`c$$], 1, "y0"}, 
      Rational[1, 4], 
      Rational[3, 2], 
      Rational[1, 4]}, {{
       Hold[$CellContext`nn$$], 2, "l\[EAcute]p\[EAcute]sek sz\[AAcute]ma"}, 
      1, 50, 1}, {{
       Hold[$CellContext`m\[OAcute]dszer$$], $CellContext`rkheun, 
       "m\[OAcute]dszer"}, {$CellContext`rkheun -> "Heun", $CellContext`rk4 -> 
       "Runge-Kutta"}}}, Typeset`size$$ = {480., {236., 244.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`f$73883$$ = False, $CellContext`a$73884$$ = 
    0, $CellContext`b$73885$$ = 0, $CellContext`c$73886$$ = 
    0, $CellContext`nn$73887$$ = 0, $CellContext`m\[OAcute]dszer$73888$$ = 
    False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 0, $CellContext`b$$ = 
        2, $CellContext`c$$ = 
        1, $CellContext`f$$ = $CellContext`f1, $CellContext`m\[OAcute]dszer$$ = \
$CellContext`rkheun, $CellContext`nn$$ = 2}, "ControllerVariables" :> {
        Hold[$CellContext`f$$, $CellContext`f$73883$$, False], 
        Hold[$CellContext`a$$, $CellContext`a$73884$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$73885$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$73886$$, 0], 
        Hold[$CellContext`nn$$, $CellContext`nn$73887$$, 0], 
        Hold[$CellContext`m\[OAcute]dszer$$, \
$CellContext`m\[OAcute]dszer$73888$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[{
         Plot[
          Evaluate[
           ReplaceAll[
            $CellContext`y[$CellContext`t], 
            $CellContext`exsol[$CellContext`a$$, $CellContext`f$$, \
$CellContext`c$$, $CellContext`t]]], {$CellContext`t, $CellContext`a$$, \
$CellContext`b$$ + 0.1}, PlotStyle -> Thickness[0.005], 
          Evaluate[$CellContext`plotoptions], AxesOrigin -> {0, 0}, PlotRange -> 
          All, PlotLabel -> 
          Row[{"l\[EAcute]p\[EAcute]sek sz\[AAcute]ma= ", ($CellContext`b$$ - \
$CellContext`a$$)/$CellContext`nn$$}]], 
         ListPlot[
          Tooltip[
           Check[
            $CellContext`m\[OAcute]dszer$$[{$CellContext`a$$, \
$CellContext`b$$}, $CellContext`f$$, $CellContext`c$$, 
             If[
              
              MemberQ[{$CellContext`f3, $CellContext`f5, $CellContext`f6}, \
$CellContext`f$$], 
              N[$CellContext`nn$$], $CellContext`nn$$]], {$CellContext`a$$}]],
           PlotStyle -> {
            ColorData[1, 2], 
            PointSize[0.02]}], 
         ListLinePlot[
          Check[
           $CellContext`m\[OAcute]dszer$$[{$CellContext`a$$, \
$CellContext`b$$}, $CellContext`f$$, $CellContext`c$$, 
            If[
             
             MemberQ[{$CellContext`f3, $CellContext`f5, $CellContext`f6}, \
$CellContext`f$$], 
             
             N[$CellContext`nn$$], $CellContext`nn$$]], {$CellContext`a$$, \
$CellContext`c$$}], PlotStyle -> {
            ColorData[1, 2]}, PlotRange -> All]}, ImageSize -> {400, 400}, 
        ImagePadding -> {{10, 10}, {10, 40}}], 
      "Specifications" :> {{{$CellContext`f$$, $CellContext`f1, 
          "f\[UDoubleDot]ggv\[EAcute]ny"}, {$CellContext`f1 -> 
          "y", $CellContext`f2 -> "-y", $CellContext`f3 -> 
          "-x \!\(\*SuperscriptBox[\(y\), \(2\)]\)", $CellContext`f4 -> 
          "\!\(\*SuperscriptBox[\(x\), \(2\)]\)-y", $CellContext`f5 -> 
          "cos(x) y", $CellContext`f6 -> 
          "\!\(\*SuperscriptBox[\(y\), \(2\)]\)(x-\!\(\*SuperscriptBox[\(x\), \
\(3\)]\))", $CellContext`f7 -> "-20y+20x+21"}, ControlType -> 
         PopupMenu}, {{$CellContext`a$$, 0}, 
         Rational[-1, 2], 
         Rational[1, 2], 
         Rational[1, 4], Appearance -> "Labeled", ControlPlacement -> Left, 
         ImageSize -> Tiny}, {{$CellContext`b$$, 2}, 1, 3, 
         Rational[1, 4], Appearance -> "Labeled", ControlPlacement -> Left, 
         ImageSize -> Tiny}, {{$CellContext`c$$, 1, "y0"}, 
         Rational[1, 4], 
         Rational[3, 2], 
         Rational[1, 4], Appearance -> "Labeled", Exclusions -> 0, 
         ControlPlacement -> Left, ImageSize -> 
         Tiny}, {{$CellContext`nn$$, 2, 
          "l\[EAcute]p\[EAcute]sek sz\[AAcute]ma"}, 1, 50, 1, Appearance -> 
         "Labeled", ControlPlacement -> Left, ImageSize -> 
         Tiny}, {{$CellContext`m\[OAcute]dszer$$, $CellContext`rkheun, 
          "m\[OAcute]dszer"}, {$CellContext`rkheun -> 
          "Heun", $CellContext`rk4 -> "Runge-Kutta"}}}, 
      "Options" :> {TrackedSymbols -> Manipulate}, "DefaultOptions" :> {}],
     ImageSizeCache->{794., {308., 315.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`exsol[
         Pattern[$CellContext`a, 
          Blank[]], 
         Pattern[$CellContext`f, 
          Blank[]], 
         Pattern[$CellContext`y0, 
          Blank[]], 
         Pattern[$CellContext`t, 
          Blank[]]] := 
       DSolve[{Derivative[
           1][$CellContext`y][$CellContext`t] == \
$CellContext`f[$CellContext`t, 
            $CellContext`y[$CellContext`t]], $CellContext`y[$CellContext`a] == \
$CellContext`y0}, $CellContext`y, $CellContext`t], $CellContext`a$$ = 
       1, $CellContext`f$$[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`x, 
          Blank[]]] = $CellContext`t - $CellContext`x, $CellContext`f$$[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`xd, 
          Blank[]]] = Derivative[2][$CellContext`x], $CellContext`xd := 
       Derivative[1][$CellContext`x], 
       Attributes[Derivative] = {NHoldAll, ReadProtected}, $CellContext`c$$ = 
       3, $CellContext`b$$ = 
       2, $CellContext`plotoptions = {
        PlotRangePadding -> 0.25, ImageSize -> 400}, $CellContext`f3[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := (-$CellContext`x) $CellContext`y^2, $CellContext`f5[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := Cos[$CellContext`x] $CellContext`y, $CellContext`f6[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          
          Blank[]]] := $CellContext`y^2 ($CellContext`x - $CellContext`x^3), \
$CellContext`f1[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := $CellContext`y, $CellContext`f1[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`xd, 
          Blank[]]] = Derivative[2][$CellContext`x], $CellContext`f2[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := -$CellContext`y, $CellContext`f4[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := $CellContext`x^2 - $CellContext`y, $CellContext`f7[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := (-20) $CellContext`y + 20 $CellContext`x + 
        21, $CellContext`rkheun[{
          Pattern[$CellContext`a, 
           Blank[]], 
          Pattern[$CellContext`r, 
           Blank[]]}, 
         Pattern[$CellContext`f, 
          Blank[]], 
         Pattern[$CellContext`y0, 
          Blank[]], 
         Pattern[$CellContext`n, 
          Blank[]]] := 
       Module[{$CellContext`A, $CellContext`b, $CellContext`c}, \
$CellContext`A = {{1/2}}; $CellContext`b = {0, 1}; $CellContext`c = {
           0, 1/2}; $CellContext`rkgen[{$CellContext`a, $CellContext`r}, \
$CellContext`f, $CellContext`y0, $CellContext`n, {$CellContext`A, \
$CellContext`b, $CellContext`c}]], $CellContext`A = Graphics[{{}, 
          
          GraphicsComplex[{{0., 1.}, {3.333333333333333, 2.533333333333333}, {
           6.666666666666666, 5.899851851851851}, {10., 
           11.091838021764975`}}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.019444444444444445`], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0.5, 0.5]], 
              Line[{1, 2, 3, 4}]}}, {{
              Directive[
               PointSize[0.019444444444444445`], 
               AbsoluteThickness[1.6], 
               AbsolutePointSize[6], 
               RGBColor[1, 0.5, 0]], 
              Point[{1, 2, 3, 4}]}, {}, {}}}], {}}, {
         DisplayFunction -> Identity, PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, AxesOrigin -> {0, 0}, 
          PlotRange -> {{0, 10.}, {0, 11.091838021764975`}}, DisplayFunction -> 
          Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
          AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
          Identity, Frame -> {{True, True}, {True, True}}, 
          FrameLabel -> {{None, None}, {None, None}}, 
          FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], Method -> {}, 
          PlotRange -> {{0, 10.}, {0, 11.091838021764975`}}, 
          PlotRangeClipping -> True, PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, 
          Ticks -> {Automatic, Automatic}}], $CellContext`rkgen[{
          Pattern[$CellContext`a, 
           Blank[]], 
          Pattern[$CellContext`r, 
           Blank[]]}, 
         Pattern[$CellContext`f, 
          Blank[]], 
         Pattern[$CellContext`y0, 
          Blank[]], 
         Pattern[$CellContext`n, 
          Blank[]], {
          Pattern[$CellContext`A, 
           Blank[]], 
          Pattern[$CellContext`b, 
           Blank[]], 
          Pattern[$CellContext`c, 
           Blank[]]}] := 
       Module[{$CellContext`h, $CellContext`x, $CellContext`y, \
$CellContext`lsg, $CellContext`i}, $CellContext`h = ($CellContext`r - \
$CellContext`a)/$CellContext`n; $CellContext`x = 
          Table[$CellContext`a + ($CellContext`i - 
              1) $CellContext`h, {$CellContext`i, 1, $CellContext`n + 
             1}]; $CellContext`y = 
          Table[0, {$CellContext`i, 1, $CellContext`n + 1}]; 
         Part[$CellContext`y, 1] = $CellContext`y0; 
         Do[Part[$CellContext`y, $CellContext`i] = $CellContext`rkgenStep[{
              Part[$CellContext`y, $CellContext`i - 1], 
              
              Part[$CellContext`x, $CellContext`i - 
               1], $CellContext`h, $CellContext`f}, {$CellContext`A, \
$CellContext`b, $CellContext`c}], {$CellContext`i, 2, $CellContext`n + 
            1}]; $CellContext`lsg = $CellContext`combList[$CellContext`x, \
$CellContext`y]], $CellContext`h = 2., $CellContext`rkgenStep[{
          Pattern[$CellContext`y0, 
           Blank[]], 
          Pattern[$CellContext`x0, 
           Blank[]], 
          Pattern[$CellContext`h, 
           Blank[]], 
          Pattern[$CellContext`f, 
           Blank[]]}, {
          Pattern[$CellContext`A, 
           Blank[]], 
          Pattern[$CellContext`b, 
           Blank[]], 
          Pattern[$CellContext`c, 
           Blank[]]}] := 
       Module[{$CellContext`s, $CellContext`k}, $CellContext`s = 
          Length[$CellContext`b]; $CellContext`k = 
          Table[0, {$CellContext`i, 1, $CellContext`s}]; 
         Part[$CellContext`k, 
            1] = $CellContext`f[$CellContext`x0, $CellContext`y0]; 
         Do[Part[$CellContext`k, $CellContext`i] = \
$CellContext`f[$CellContext`x0 + 
             Part[$CellContext`c, $CellContext`i] $CellContext`h, \
$CellContext`y0 + $CellContext`h 
              Sum[Part[$CellContext`A, $CellContext`i - 1, $CellContext`j] 
                Part[$CellContext`k, $CellContext`j], {$CellContext`j, 
                 1, $CellContext`i - 1}]], {$CellContext`i, 
            2, $CellContext`s}]; $CellContext`ynext = $CellContext`y0 + \
$CellContext`h 
            Sum[Part[$CellContext`b, $CellContext`i] 
              Part[$CellContext`k, $CellContext`i], {$CellContext`i, 
               1, $CellContext`s}]], $CellContext`x0 := 0, $CellContext`ynext = 
       507/64, $CellContext`combList[
         Pattern[$CellContext`x, 
          Blank[List]], 
         Pattern[$CellContext`y, 
          Blank[List]]] := 
       MapThread[$CellContext`combPair, {$CellContext`x, $CellContext`y}], \
$CellContext`combPair[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := {$CellContext`x, $CellContext`y}, $CellContext`rk4[{
          Pattern[$CellContext`a, 
           Blank[]], 
          Pattern[$CellContext`r, 
           Blank[]]}, 
         Pattern[$CellContext`f, 
          Blank[]], 
         Pattern[$CellContext`y0, 
          Blank[]], 
         Pattern[$CellContext`n, 
          Blank[]]] := 
       Module[{$CellContext`A, $CellContext`b, $CellContext`c}, \
$CellContext`A = {{1/2}, {0, 1/2}, {0, 0, 1}}; $CellContext`b = {
           1/6, 1/3, 1/3, 1/6}; $CellContext`c = {
           0, 1/2, 1/2, 
            1}; $CellContext`rkgen[{$CellContext`a, $CellContext`r}, \
$CellContext`f, $CellContext`y0, $CellContext`n, {$CellContext`A, \
$CellContext`b, $CellContext`c}]]}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.6715287059314356`*^9, {3.671528780397011*^9, 3.6715288171015406`*^9}, {
   3.671528895340128*^9, 3.67152891636318*^9}, {3.671529028996932*^9, 
   3.671529046530642*^9}, {3.671543020290143*^9, 3.6715430211495667`*^9}, 
   3.671544107744088*^9, 3.6715445303479404`*^9, 3.6715960945886173`*^9, {
   3.6716119021138935`*^9, 3.6716119036399126`*^9}, 3.6716134230130334`*^9, 
   3.6716193282825165`*^9, 3.6716237861423874`*^9, 3.671623917240696*^9, 
   3.671633641858403*^9, 3.671633726783165*^9, 3.6716832411909456`*^9, 
   3.6716837345794353`*^9, {3.671686532970392*^9, 3.671686563775648*^9}, 
   3.671686623126161*^9, {3.6716920483697615`*^9, 3.6716920516859784`*^9}, {
   3.671709524960935*^9, 3.671709552070055*^9}, {3.6717096076453524`*^9, 
   3.6717096131970625`*^9}, {3.6717096521390905`*^9, 3.671709712931723*^9}}]
}, {2}]],

Cell["\<\
A Simpson m\[OAcute]dszer bemutat\[AAcute]sa k\[UDoubleDot]l\[ODoubleDot]nb\
\[ODoubleDot]z\[ODoubleAcute] f\[UDoubleDot]ggv\[EAcute]nyeken kereszt\
\[UDoubleDot]l:\
\>", "Text",
 CellChangeTimes->{{3.6714328639113626`*^9, 3.6714328876059346`*^9}, {
  3.6715281435192895`*^9, 3.671528145837843*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NumericalIntegrate", "[", 
   RowBox[{"rule_", ",", "f\[UDoubleDot]ggv\[EAcute]ny_", ",", "nodes_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"f", "=", "f\[UDoubleDot]ggv\[EAcute]ny"}], ",", 
      RowBox[{"n", "=", "nodes"}], ",", 
      RowBox[{"out", "=", "0"}], ",", 
      RowBox[{"i", "=", "0"}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Switch", "[", 
      RowBox[{
      "rule", ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       "\"\<Simpson m\[OAcute]dszer\>\"", ",", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"out", "=", "0"}], ";", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", "=", "1"}], ",", 
          RowBox[{"i", "\[LessEqual]", 
           RowBox[{
            RowBox[{"Length", "[", "n", "]"}], "-", "2"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"out", "+=", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Mod", "[", 
                 RowBox[{"i", ",", "2"}], "]"}], "\[Equal]", "0"}], ",", 
               RowBox[{"2", 
                RowBox[{"f", "[", 
                 RowBox[{"n", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", "+", "1"}], "]"}], "]"}], "]"}]}], ",", 
               RowBox[{"4", 
                RowBox[{"f", "[", 
                 RowBox[{"n", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", "+", "1"}], "]"}], "]"}], "]"}]}]}], "]"}]}], 
            ";"}], "\[IndentingNewLine]", ";", 
           RowBox[{"i", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"out", "+=", 
         RowBox[{"f", "[", 
          RowBox[{"n", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"out", "+=", 
         RowBox[{"f", "[", 
          RowBox[{"n", "[", 
           RowBox[{"[", 
            RowBox[{"Length", "[", "n", "]"}], "]"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Length", "[", "n", "]"}], ">", "1"}], ",", 
          RowBox[{"out", "*=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"n", "[", 
               RowBox[{"[", 
                RowBox[{"Length", "[", "n", "]"}], "]"}], "]"}], "-", 
              RowBox[{"n", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"3", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Length", "[", "n", "]"}], "-", "1"}], ")"}]}], 
             ")"}]}]}], ",", 
          RowBox[{"out", "=", "0"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "out"}]}], 
   "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"functions", "=", 
   RowBox[{"{", 
    RowBox[{"Sin", ",", 
     RowBox[{"Function", "[", 
      RowBox[{"u", ",", 
       RowBox[{"Exp", "[", 
        RowBox[{"u", "-", "3"}], "]"}]}], "]"}], ",", "Cos", ",", "ArcTan", 
     ",", 
     RowBox[{"Function", "[", 
      RowBox[{"u", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"3", "/", "125"}], ")"}], 
        RowBox[{"u", "^", "3"}]}]}], "]"}], ",", 
     RowBox[{"Function", "[", 
      RowBox[{"u", ",", 
       RowBox[{"2", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"u", "^", "2"}]}], ")"}]}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"g", "=", 
     RowBox[{"functions", "[", 
      RowBox[{"[", "f\[UDoubleDot]ggv\[EAcute]ny", "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"v", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"v", "[", 
          RowBox[{"[", 
           RowBox[{"k", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"g", "[", 
          RowBox[{"v", "[", 
           RowBox[{"[", 
            RowBox[{"k", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "1", ",", 
         RowBox[{"Length", "[", "v", "]"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"u", "=", 
     RowBox[{"Sort", "[", "v", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"u", "=", 
     RowBox[{
      RowBox[{"Tally", "[", "u", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", ";;"}], ",", "1"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"simp", "=", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Interpolation", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"u", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"2", "k"}], "+", "1"}], ",", "1"}], "]"}], "]"}], 
                 ",", 
                 RowBox[{"g", "[", 
                  RowBox[{"u", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"2", "k"}], "+", "1"}], ",", "1"}], "]"}], "]"}], 
                  "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"u", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"2", "k"}], "+", "2"}], ",", "1"}], "]"}], "]"}], 
                 ",", 
                 RowBox[{"g", "[", 
                  RowBox[{"u", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"2", "k"}], "+", "2"}], ",", "1"}], "]"}], "]"}], 
                  "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"u", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"2", "k"}], "+", "3"}], ",", "1"}], "]"}], "]"}], 
                 ",", 
                 RowBox[{"g", "[", 
                  RowBox[{"u", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"2", "k"}], "+", "3"}], ",", "1"}], "]"}], "]"}], 
                  "]"}]}], "}"}]}], "}"}], ",", 
             RowBox[{"InterpolationOrder", "\[Rule]", "2"}]}], "]"}], "[", 
           "t", "]"}], ",", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"2", "k"}], "+", "1"}], ",", "1"}], "]"}], "]"}], 
           "\[LessEqual]", "t", "<=", 
           RowBox[{"u", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"2", "k"}], "+", "3"}], ",", "1"}], "]"}], "]"}]}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Length", "[", "u", "]"}], "/", "2"}], " ", "-", 
           RowBox[{"3", "/", "2"}]}]}], "}"}]}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"trap", "=", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Interpolation", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"u", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{"k", "+", "1"}], ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{"g", "[", 
                  RowBox[{"u", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"k", "+", "1"}], ",", "1"}], "]"}], "]"}], 
                  "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"u", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{"k", "+", "2"}], ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{"g", "[", 
                  RowBox[{"u", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"k", "+", "2"}], ",", "1"}], "]"}], "]"}], 
                  "]"}]}], "}"}]}], "}"}], ",", 
             RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], "[", 
           "t", "]"}], ",", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"k", "+", "1"}], ",", "1"}], "]"}], "]"}], 
           "\[LessEqual]", "t", "<=", 
           RowBox[{"u", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"k", "+", "2"}], ",", "1"}], "]"}], "]"}]}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", 
          RowBox[{
           RowBox[{"Length", "[", "u", "]"}], "-", "2"}]}], "}"}]}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"rect", "=", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"g", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"k", "+", "1"}], ",", "1"}], "]"}], "]"}], "+", 
              RowBox[{"u", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"k", "+", "2"}], ",", "1"}], "]"}], "]"}]}], ")"}], 
            "/", "2"}], "]"}], ",", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"k", "+", "1"}], ",", "1"}], "]"}], "]"}], "<", "t", "<=", 
           RowBox[{"u", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"k", "+", "2"}], ",", "1"}], "]"}], "]"}]}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", 
          RowBox[{
           RowBox[{"Length", "[", "u", "]"}], "-", "2"}]}], "}"}]}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Pane", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Mod", "[", 
           RowBox[{
            RowBox[{"Length", "[", "u", "]"}], ",", "2"}], "]"}], "\[Equal]", 
          "0"}], "&&", 
         RowBox[{
         "m\[OAcute]dszer", "==", "\"\<Simpson m\[OAcute]dszer\>\""}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Text", "@", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<\>\"", ",", "Bold", ",", "16"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Column", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Plot", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"g", "[", "t", "]"}], ",", 
                RowBox[{"Switch", "[", 
                 RowBox[{
                 "m\[OAcute]dszer", ",", "rect", ",", "trap", ",", 
                  "\"\<Simpson m\[OAcute]dszer\>\"", ",", "simp"}], "]"}]}], 
               "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"t", ",", 
                RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
              RowBox[{"ImageSize", "\[Rule]", "500"}], ",", 
              RowBox[{"PlotRange", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", "3"}], ",", "2.5"}], "}"}]}], "}"}]}], ",", 
              RowBox[{"Filling", "\[Rule]", "Axis"}], ",", 
              RowBox[{"AxesLabel", "\[Rule]", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Row", "[", 
                  RowBox[{"{", 
                   RowBox[{"y", ",", " ", "\"\< = \>\"", ",", 
                    RowBox[{"g", "[", "x", "]"}]}], "}"}], "]"}], ",", "15", 
                 ",", "Bold"}], "]"}]}], ",", 
              RowBox[{"Epilog", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.01", "]"}], ",", "Black", 
                    ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"u", "[", 
                    RowBox[{"[", 
                    RowBox[{"k", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"g", "[", 
                    RowBox[{"u", "[", 
                    RowBox[{"[", 
                    RowBox[{"k", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}], 
                    "]"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"k", ",", "1", ",", 
                    RowBox[{"Length", "[", "u", "]"}]}], "}"}]}], "]"}], 
                ")"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{
               RowBox[{"StringJoin", "[", 
                RowBox[{"\"\<Pontos \[EAcute]rt\[EAcute]k: \>\"", ",", 
                 RowBox[{"ToString", "[", 
                  RowBox[{"TraditionalForm", "[", 
                   RowBox[{
                    SubsuperscriptBox["\[Integral]", 
                    RowBox[{"u", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], 
                    RowBox[{"u", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"Length", "[", "u", "]"}], ",", "1"}], "]"}], 
                    "]"}]], 
                    RowBox[{
                    RowBox[{"f", "[", "x", "]"}], 
                    RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}], "]"}], ",", 
                 "\"\< = \>\"", ",", 
                 RowBox[{"ToString", "[", 
                  RowBox[{"N", "[", 
                   RowBox[{"Integrate", "[", 
                    RowBox[{
                    RowBox[{"g", "[", "x", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", 
                    RowBox[{"u", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"u", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"Length", "[", "u", "]"}], ",", "1"}], "]"}], 
                    "]"}]}], "}"}]}], "]"}], "]"}], "]"}], ",", 
                 "\[IndentingNewLine]", "\"\<\n\>\"", ",", 
                 "\"\<Megk\[ODoubleDot]zel\[IAcute]t\[ODoubleAcute] \
\[EAcute]rt\[EAcute]k: \>\"", ",", 
                 RowBox[{"ToString", "[", 
                  RowBox[{"TraditionalForm", "[", 
                   RowBox[{
                    SubsuperscriptBox["\[Integral]", 
                    RowBox[{"u", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], 
                    RowBox[{"u", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"Length", "[", "u", "]"}], ",", "1"}], "]"}], 
                    "]"}]], 
                    RowBox[{
                    RowBox[{"f", "[", "x", "]"}], 
                    RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}], "]"}], ",", 
                 "\"\< \[TildeTilde] \>\"", ",", 
                 RowBox[{"ToString", "[", 
                  RowBox[{
                   RowBox[{"N", "[", 
                    RowBox[{"NumericalIntegrate", "[", 
                    RowBox[{"m\[OAcute]dszer", ",", "g", ",", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"u", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "1", ",", 
                    RowBox[{"Length", "[", "u", "]"}]}], "}"}]}], "]"}]}], 
                    "]"}], "]"}], ",", 
                   RowBox[{"FormatType", "\[Rule]", "TraditionalForm"}]}], 
                  "]"}]}], "]"}], ",", "Bold", ",", "15"}], "]"}], "]"}]}], 
           "\[IndentingNewLine]", "}"}], ",", "Center"}], 
         "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Text", "[", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"StringJoin", "[", 
            RowBox[{"\"\<Error = \>\"", ",", 
             RowBox[{"ToString", "[", 
              RowBox[{"N", "[", 
               RowBox[{"Abs", "[", 
                RowBox[{
                 RowBox[{"Integrate", "[", 
                  RowBox[{
                   RowBox[{"g", "[", "x", "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"x", ",", 
                    RowBox[{"u", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"u", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"Length", "[", "u", "]"}], ",", "1"}], "]"}], 
                    "]"}]}], "}"}]}], "]"}], "-", 
                 RowBox[{"NumericalIntegrate", "[", 
                  RowBox[{"m\[OAcute]dszer", ",", "g", ",", 
                   RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"u", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "1", ",", 
                    RowBox[{"Length", "[", "u", "]"}]}], "}"}]}], "]"}]}], 
                  "]"}]}], "]"}], "]"}], "]"}]}], "]"}], ",", "Bold", ",", 
           "18"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"500", ",", "425"}], "}"}]}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"f\[UDoubleDot]ggv\[EAcute]ny", ",", "1"}], "}"}], ",", 
     RowBox[{"Thread", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{"k", ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", 
           RowBox[{"Length", "[", "functions", "]"}]}], "}"}]}], "]"}], 
       "\[Rule]", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ToString", "@", 
           RowBox[{"TraditionalForm", "[", 
            RowBox[{"#", "[", "x", "]"}], "]"}]}], "&"}], ",", "functions"}], 
        "]"}]}], "]"}]}], "}"}], ",", "Delimiter", ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"m\[OAcute]dszer", ",", 
     RowBox[{"{", "\"\<Simpson m\[OAcute]dszer\>\"", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"v", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "8"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "27"}], "}"}]}], "}"}]}], "}"}], ",", "Locator", 
     ",", 
     RowBox[{"LocatorAutoCreate", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", ",", "Infinity"}], "}"}]}]}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
   RowBox[{"TrackedSymbols", "\[Rule]", "True"}], ",", 
   RowBox[{"AutorunSequencing", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.431015774171875*^9, 3.431015893265625*^9}, {
   3.4310159395625*^9, 3.431015958671875*^9}, {3.431016129296875*^9, 
   3.431016201828125*^9}, {3.431016234703125*^9, 3.43101623771875*^9}, {
   3.431016328515625*^9, 3.431016368484375*^9}, {3.431016570609375*^9, 
   3.431016642578125*^9}, {3.4310166806875*^9, 3.43101669490625*^9}, {
   3.431016729640625*^9, 3.4310168209375*^9}, {3.43101688784375*^9, 
   3.43101699959375*^9}, {3.431017039796875*^9, 3.431017067953125*^9}, {
   3.431017227625*^9, 3.431017296671875*^9}, {3.43101734071875*^9, 
   3.431017341140625*^9}, {3.431017371328125*^9, 3.431017398375*^9}, {
   3.431017474578125*^9, 3.43101754584375*^9}, {3.43101759509375*^9, 
   3.4310176033125*^9}, {3.431017634046875*^9, 3.43101764790625*^9}, {
   3.431017732265625*^9, 3.431017737734375*^9}, {3.431017779765625*^9, 
   3.431017789421875*^9}, {3.431017834828125*^9, 3.431017835*^9}, {
   3.431028834375*^9, 3.431028835515625*^9}, {3.44501894559375*^9, 
   3.44501895771875*^9}, {3.445019672578125*^9, 3.44501967621875*^9}, 
   3.445194239323696*^9, {3.4451953020825195`*^9, 3.445195315144936*^9}, {
   3.4452034300093803`*^9, 3.4452034459155283`*^9}, {3.4452726396875*^9, 
   3.445272682703125*^9}, {3.44527389690625*^9, 3.44527394628125*^9}, {
   3.44527549715625*^9, 3.445275538796875*^9}, {3.445275834484375*^9, 
   3.445275843921875*^9}, {3.44527591371875*^9, 3.44527591415625*^9}, {
   3.44527771771875*^9, 3.445277718453125*^9}, 3.6714323096361856`*^9, {
   3.6714324452338605`*^9, 3.671432447278234*^9}, {3.6714325538733788`*^9, 
   3.671432555308337*^9}, {3.671432794175044*^9, 3.671432805037915*^9}, {
   3.671516838582615*^9, 3.671516937387427*^9}},
 CellID->288331400],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`f\[UDoubleDot]ggv\[EAcute]ny$$ = 
    1, $CellContext`m\[OAcute]dszer$$ = 
    "Simpson m\[OAcute]dszer", $CellContext`v$$ = {{1, 
      Sin[1]}, {2, 
      Sin[2]}, {3, 
      Sin[3]}}, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`f\[UDoubleDot]ggv\[EAcute]ny$$], 1}, {
      1 -> "\!\(TraditionalForm\`\(sin(x)\)\)", 2 -> 
       "\!\(TraditionalForm\`\[ExponentialE]\^\(x - 3\)\)", 3 -> 
       "\!\(TraditionalForm\`\(cos(x)\)\)", 4 -> 
       "\!\(TraditionalForm\`\(\(\(tan\^\(-1\)\)\)(x)\)\)", 5 -> 
       "\!\(TraditionalForm\`\(3\\ x\^3\)\/125\)", 6 -> 
       "\!\(TraditionalForm\`2\/\(x\^2 + 1\)\)"}}, {
      Hold[$CellContext`m\[OAcute]dszer$$], {"Simpson m\[OAcute]dszer"}}, {{
       Hold[$CellContext`v$$], {{1, 1}, {2, 8}, {3, 27}}}, Automatic}}, 
    Typeset`size$$ = {600., {251., 259.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`f\[UDoubleDot]ggv\[EAcute]ny$6019$$ = 
    False, $CellContext`m\[OAcute]dszer$6020$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`f\[UDoubleDot]ggv\[EAcute]ny$$ = 
        1, $CellContext`m\[OAcute]dszer$$ = 
        "Simpson m\[OAcute]dszer", $CellContext`v$$ = {{1, 1}, {2, 8}, {3, 
         27}}}, "ControllerVariables" :> {
        Hold[$CellContext`f\[UDoubleDot]ggv\[EAcute]ny$$, $CellContext`f\
\[UDoubleDot]ggv\[EAcute]ny$6019$$, False], 
        Hold[$CellContext`m\[OAcute]dszer$$, \
$CellContext`m\[OAcute]dszer$6020$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`g = 
        Part[$CellContext`functions, \
$CellContext`f\[UDoubleDot]ggv\[EAcute]ny$$]; $CellContext`v$$ = Table[{
           Part[$CellContext`v$$, $CellContext`k, 1], 
           $CellContext`g[
            Part[$CellContext`v$$, $CellContext`k, 1]]}, {$CellContext`k, 1, 
           Length[$CellContext`v$$]}]; $CellContext`u = 
        Sort[$CellContext`v$$]; $CellContext`u = Part[
          Tally[$CellContext`u], 
          Span[1, All], 1]; $CellContext`simp = Piecewise[
          Table[{
            Interpolation[{{
               Part[$CellContext`u, 2 $CellContext`k + 1, 1], 
               $CellContext`g[
                Part[$CellContext`u, 2 $CellContext`k + 1, 1]]}, {
               Part[$CellContext`u, 2 $CellContext`k + 2, 1], 
               $CellContext`g[
                Part[$CellContext`u, 2 $CellContext`k + 2, 1]]}, {
               Part[$CellContext`u, 2 $CellContext`k + 3, 1], 
               $CellContext`g[
                Part[$CellContext`u, 2 $CellContext`k + 3, 1]]}}, 
             InterpolationOrder -> 2][$CellContext`t], 
            Part[$CellContext`u, 2 $CellContext`k + 1, 1] <= $CellContext`t <= 
            Part[$CellContext`u, 2 $CellContext`k + 3, 1]}, {$CellContext`k, 
            0, Length[$CellContext`u]/2 - 3/2}]]; $CellContext`trap = 
        Piecewise[
          Table[{
            Interpolation[{{
               Part[$CellContext`u, $CellContext`k + 1, 1], 
               $CellContext`g[
                Part[$CellContext`u, $CellContext`k + 1, 1]]}, {
               Part[$CellContext`u, $CellContext`k + 2, 1], 
               $CellContext`g[
                Part[$CellContext`u, $CellContext`k + 2, 1]]}}, 
             InterpolationOrder -> 1][$CellContext`t], 
            Part[$CellContext`u, $CellContext`k + 1, 1] <= $CellContext`t <= 
            Part[$CellContext`u, $CellContext`k + 2, 1]}, {$CellContext`k, 0, 
            Length[$CellContext`u] - 2}]]; $CellContext`rect = Piecewise[
          Table[{
            $CellContext`g[(Part[$CellContext`u, $CellContext`k + 1, 1] + 
              Part[$CellContext`u, $CellContext`k + 2, 1])/2], 
            Inequality[
             Part[$CellContext`u, $CellContext`k + 1, 1], 
             Less, $CellContext`t, LessEqual, 
             Part[$CellContext`u, $CellContext`k + 2, 1]]}, {$CellContext`k, 
            0, Length[$CellContext`u] - 2}]]; Pane[
         If[
          And[Mod[
             Length[$CellContext`u], 2] == 0, $CellContext`m\[OAcute]dszer$$ == 
           "Simpson m\[OAcute]dszer"], 
          Text[
           Style["", Bold, 16]], 
          Column[{
            Plot[{
              $CellContext`g[$CellContext`t], 
              
              Switch[$CellContext`m\[OAcute]dszer$$, $CellContext`rect, \
$CellContext`trap, 
               "Simpson m\[OAcute]dszer", $CellContext`simp]}, \
{$CellContext`t, -5, 5}, ImageSize -> 500, PlotRange -> {{-5, 5}, {-3, 2.5}}, 
             Filling -> Axis, AxesLabel -> Style[
               Row[{$CellContext`y, " = ", 
                 $CellContext`g[$CellContext`x]}], 15, Bold], Epilog -> Table[{
                PointSize[0.01], Black, 
                Point[{
                  Part[$CellContext`u, $CellContext`k, 1], 
                  $CellContext`g[
                   
                   Part[$CellContext`u, $CellContext`k, 
                    1]]}]}, {$CellContext`k, 1, 
                Length[$CellContext`u]}]], 
            Text[
             Style[
              StringJoin["Pontos \[EAcute]rt\[EAcute]k: ", 
               ToString[
                TraditionalForm[
                 Integrate[
                  $CellContext`f[$CellContext`x], {$CellContext`x, 
                   Part[$CellContext`u, 1, 1], 
                   Part[$CellContext`u, 
                    Length[$CellContext`u], 1]}]]], " = ", 
               ToString[
                N[
                 Integrate[
                  $CellContext`g[$CellContext`x], {$CellContext`x, 
                   Part[$CellContext`u, 1, 1], 
                   Part[$CellContext`u, 
                    Length[$CellContext`u], 1]}]]], "\n", 
               "Megk\[ODoubleDot]zel\[IAcute]t\[ODoubleAcute] \[EAcute]rt\
\[EAcute]k: ", 
               ToString[
                TraditionalForm[
                 Integrate[
                  $CellContext`f[$CellContext`x], {$CellContext`x, 
                   Part[$CellContext`u, 1, 1], 
                   Part[$CellContext`u, 
                    Length[$CellContext`u], 1]}]]], " \[TildeTilde] ", 
               ToString[
                N[
                 $CellContext`NumericalIntegrate[$CellContext`m\[OAcute]dszer$\
$, $CellContext`g, 
                  Table[
                   
                   Part[$CellContext`u, $CellContext`i, 1], {$CellContext`i, 
                    1, 
                    Length[$CellContext`u]}]]], FormatType -> 
                TraditionalForm]], Bold, 15]]}, Center], 
          Text[
           Style[
            StringJoin["Error = ", 
             ToString[
              N[
               Abs[Integrate[
                  $CellContext`g[$CellContext`x], {$CellContext`x, 
                   Part[$CellContext`u, 1, 1], 
                   Part[$CellContext`u, 
                    Length[$CellContext`u], 
                    1]}] - $CellContext`NumericalIntegrate[$CellContext`m\
\[OAcute]dszer$$, $CellContext`g, 
                 Table[
                  Part[$CellContext`u, $CellContext`i, 1], {$CellContext`i, 1, 
                   Length[$CellContext`u]}]]]]]], Bold, 18]]], 
         ImageSize -> {500, 425}]), 
      "Specifications" :> {{{$CellContext`f\[UDoubleDot]ggv\[EAcute]ny$$, 
          1}, {1 -> "\!\(TraditionalForm\`\(sin(x)\)\)", 2 -> 
          "\!\(TraditionalForm\`\[ExponentialE]\^\(x - 3\)\)", 3 -> 
          "\!\(TraditionalForm\`\(cos(x)\)\)", 4 -> 
          "\!\(TraditionalForm\`\(\(\(tan\^\(-1\)\)\)(x)\)\)", 5 -> 
          "\!\(TraditionalForm\`\(3\\ x\^3\)\/125\)", 6 -> 
          "\!\(TraditionalForm\`2\/\(x\^2 + 1\)\)"}}, 
        Delimiter, {$CellContext`m\[OAcute]dszer$$, {
         "Simpson m\[OAcute]dszer"}}, {{$CellContext`v$$, {{1, 1}, {2, 8}, {3,
           27}}}, Automatic, ControlType -> Locator, LocatorAutoCreate -> {2, 
           DirectedInfinity[1]}}}, 
      "Options" :> {TrackedSymbols -> True, AutorunSequencing -> {1, 2}}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{665., {345., 352.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`functions = {Sin, 
         Function[$CellContext`u, 
          Exp[$CellContext`u - 3]], Cos, ArcTan, 
         Function[$CellContext`u, (3/125) $CellContext`u^3], 
         Function[$CellContext`u, 2/(1 + $CellContext`u^2)]}, $CellContext`f[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`x, 
          Blank[]]] = 3 (1 + $CellContext`x), $CellContext`NumericalIntegrate[
         Pattern[$CellContext`rule, 
          Blank[]], 
         Pattern[$CellContext`f\[UDoubleDot]ggv\[EAcute]ny, 
          Blank[]], 
         Pattern[$CellContext`nodes, 
          Blank[]]] := 
       Module[{$CellContext`f = $CellContext`f\[UDoubleDot]ggv\[EAcute]ny, \
$CellContext`n = $CellContext`nodes, $CellContext`out = 0, $CellContext`i = 
          0}, Switch[$CellContext`rule, 
           "Simpson m\[OAcute]dszer", $CellContext`out = 0; 
           For[$CellContext`i = 1, $CellContext`i <= 
             Length[$CellContext`n] - 2, (AddTo[$CellContext`out, 
                If[Mod[$CellContext`i, 2] == 0, 2 $CellContext`f[
                   Part[$CellContext`n, $CellContext`i + 1]], 4 $CellContext`f[
                   Part[$CellContext`n, $CellContext`i + 1]]]]; Null); 
             Increment[$CellContext`i]]; AddTo[$CellContext`out, 
             $CellContext`f[
              Part[$CellContext`n, 1]]]; AddTo[$CellContext`out, 
             $CellContext`f[
              Part[$CellContext`n, 
               Length[$CellContext`n]]]]; If[Length[$CellContext`n] > 1, 
             TimesBy[$CellContext`out, (Part[$CellContext`n, 
                 Length[$CellContext`n]] - Part[$CellContext`n, 1])/(
              3 (Length[$CellContext`n] - 1))], $CellContext`out = 0]; 
           Null]; $CellContext`out]}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.671432181787433*^9, 3.6714321959138775`*^9}, {
   3.671432319484455*^9, 3.67143233439569*^9}, 3.6714325178674726`*^9, {
   3.6714325621228905`*^9, 3.6714325868682528`*^9}, 3.671432620120921*^9, 
   3.6714326680994616`*^9, {3.6714327168594646`*^9, 3.6714327441472964`*^9}, 
   3.6714328080639324`*^9, 3.671516947360344*^9, 3.6715269191631575`*^9, 
   3.6715269624981365`*^9, 3.671543021290196*^9, 3.671544107915969*^9, 
   3.6715445304573135`*^9, 3.671596094740718*^9, 3.671611903785008*^9, 
   3.6716134231351166`*^9, {3.6716865408476624`*^9, 3.6716865639537687`*^9}, 
   3.671686623628496*^9, 3.6716920518100615`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["\[CapitalODoubleDot]sszefoglal\[OAcute]", "Subsection",
 CellChangeTimes->{{3.671196069324273*^9, 3.6711960716137953`*^9}},
 FontFamily->"Gill Sans MT",
 FontColor->RGBColor[1., 0.5019607843137255, 0.]],

Cell["\<\
Az Euler-f\[EAcute]le k\[ODoubleDot]zel\[IAcute]t\[EAcute]snek k\[EAcute]t \
fajt\[AAcute]ja l\[EAcute]tezik: explicit \[EAcute]s implicit \
m\[OAcute]dszer. Mivel t\[EAcute]m\[AAcute]nk csak az explicit \
f\[UDoubleDot]ggv\[EAcute]nyekre vonatkozik, ez\[EAcute]rt eddig csak ezekkel \
foglalkoztunk. 
Most viszont \[ODoubleDot]sszefoglal\[AAcute]sk\[EAcute]nt mindk\[EAcute]t m\
\[OAcute]dszert \[AAcute]br\[AAcute]zoljuk, hogy l\[AAcute]that\[OAcute] \
legyen a k\[ODoubleDot]z\[ODoubleDot]tt\[UDoubleDot]k l\[EAcute]v\
\[ODoubleAcute] k\[UDoubleDot]l\[ODoubleDot]nbs\[EAcute]g.
\
\>", "Text",
 CellChangeTimes->{
  3.671433410187132*^9, {3.6714334442657423`*^9, 3.671433548356593*^9}, {
   3.6714335866238656`*^9, 3.6714335870931826`*^9}, {3.6715291062186136`*^9, 
   3.6715291770810432`*^9}},
 TextJustification->1.],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f1", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", "y"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f2", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{"-", "y"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f3", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{"-", "x"}], " ", 
    SuperscriptBox["y", "2"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f4", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", " ", 
   RowBox[{
    SuperscriptBox["x", "2"], "-", "y"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f5", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], " ", "y"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f6", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{
    SuperscriptBox["y", "2"], 
    RowBox[{"(", 
     RowBox[{"x", "-", 
      SuperscriptBox["x", "3"]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f7", "[", 
     RowBox[{"x_", ",", "y_"}], "]"}], ":=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "20"}], " ", "y"}], "+", 
     RowBox[{"20", " ", "x"}], "+", "21"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"combPair", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{"x", ",", "y"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"combList", "[", 
   RowBox[{"x_List", ",", "y_List"}], "]"}], ":=", 
  RowBox[{"MapThread", "[", 
   RowBox[{"combPair", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"exsol", "[", 
   RowBox[{"a_", ",", "f_", ",", "y0_", ",", "t_"}], "]"}], ":=", 
  RowBox[{"DSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"y", "'"}], "[", "t", "]"}], "==", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", 
         RowBox[{"y", "[", "t", "]"}]}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"y", "[", "a", "]"}], "\[Equal]", "y0"}]}], "}"}], ",", "y", 
    ",", "t"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plotoptions", "=", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"PlotRangePadding", "\[Rule]", "0.25"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"eulerex", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a_", ",", "b_"}], "}"}], ",", "f_", ",", "y0_", ",", "n_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h", ",", "x", ",", " ", "y", ",", "lsg"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"h", "=", 
      FractionBox[
       RowBox[{"b", "-", "a"}], "n"]}], ";", "\[IndentingNewLine]", 
     RowBox[{"x", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"a", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"i", "-", "1"}], ")"}], "h"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"y", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"0", ",", 
        RowBox[{"{", 
         RowBox[{"n", "+", "1"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "=", "y0"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", " ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"y", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"y", "[", 
          RowBox[{"[", 
           RowBox[{"i", "-", "1"}], "]"}], "]"}], "+", 
         RowBox[{"h", " ", 
          RowBox[{"f", "[", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", 
              RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", 
            RowBox[{"y", "[", 
             RowBox[{"[", 
              RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "]"}]}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "2", ",", 
         RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"lsg", "=", 
      RowBox[{"combList", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]}]}], "\[IndentingNewLine]", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"eulerimp", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a_", ",", "b_"}], "}"}], ",", "f_", ",", "y0_", ",", "n_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h", ",", "x", ",", " ", "y", ",", "lsg", ",", "sol"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"h", "=", 
      FractionBox[
       RowBox[{"b", "-", "a"}], "n"]}], ";", "\[IndentingNewLine]", 
     RowBox[{"x", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"a", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"i", "-", "1"}], ")"}], "h"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"y", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"0", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "=", "y0"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", " ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"lsg", "=", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"sol", "==", 
            RowBox[{
             RowBox[{"y", "[", 
              RowBox[{"[", 
               RowBox[{"i", "-", "1"}], "]"}], "]"}], "+", 
             RowBox[{"h", " ", 
              RowBox[{"f", "[", " ", 
               RowBox[{
                RowBox[{"x", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], " ", ",", "sol"}], 
               "]"}]}]}]}], ",", "sol"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"y", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"lsg", "===", 
            RowBox[{"{", "}"}]}], ",", 
           RowBox[{"y", "[", 
            RowBox[{"[", 
             RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", 
           RowBox[{"sol", "/.", 
            RowBox[{"lsg", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"i", ",", "2", ",", 
         RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"lsg", "=", 
      RowBox[{"combList", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]}]}], "\[IndentingNewLine]", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"rk4", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a_", ",", "r_"}], "}"}], ",", "f_", ",", "y0_", ",", "n_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"A", ",", "b", ",", "c"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"A", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         FractionBox["1", "2"], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          FractionBox["1", "2"]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"b", "=", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["1", "6"], ",", 
        FractionBox["1", "3"], ",", 
        FractionBox["1", "3"], ",", 
        FractionBox["1", "6"]}], "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"c", "=", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        FractionBox["1", "2"], ",", 
        FractionBox["1", "2"], ",", "1"}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"rkgen", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "r"}], "}"}], ",", "f", ",", "y0", ",", "n", ",", 
       RowBox[{"{", 
        RowBox[{"A", ",", "b", ",", "c"}], "}"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}], "\n", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"y", "[", "t", "]"}], "/.", 
           RowBox[{"exsol", "[", 
            RowBox[{"a", ",", "f", ",", "c", ",", "t"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "a", ",", 
           RowBox[{"b", "+", "0.1"}]}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"Thickness", "[", "0.005", "]"}]}], ",", 
         RowBox[{"Evaluate", "[", "plotoptions", "]"}], ",", 
         RowBox[{"AxesOrigin", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], ",", 
         RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Row", "[", 
           RowBox[{"{", 
            RowBox[{"\"\<l\[EAcute]p\[EAcute]sek nagys\[AAcute]ga= \>\"", ",", 
             FractionBox[
              RowBox[{"b", "-", "a"}], "nn"]}], "}"}], "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListPlot", " ", "[", 
        RowBox[{
         RowBox[{"Tooltip", "[", 
          RowBox[{"Check", "[", 
           RowBox[{
            RowBox[{"method", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"a", ",", "b"}], "}"}], ",", "f", ",", "c", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"MemberQ", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"f3", ",", "f5", ",", "f6"}], "}"}], ",", "f"}], 
                 "]"}], ",", 
                RowBox[{"N", "[", "nn", "]"}], ",", "nn"}], "]"}]}], "]"}], 
            ",", 
            RowBox[{"{", "a", "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"ColorData", "[", 
             RowBox[{"1", ",", "2"}], "]"}], ",", 
            RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Check", "[", 
          RowBox[{
           RowBox[{"method", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"a", ",", "b"}], "}"}], ",", "f", ",", "c", ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"MemberQ", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"f3", ",", "f5", ",", "f6"}], "}"}], ",", "f"}], 
                "]"}], ",", 
               RowBox[{"N", "[", "nn", "]"}], ",", "nn"}], "]"}]}], "]"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"a", ",", "c"}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"ColorData", "[", 
            RowBox[{"1", ",", "2"}], "]"}], "}"}]}], ",", 
         RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"400", ",", "400"}], "}"}]}], ",", 
     RowBox[{"ImagePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"10", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"10", ",", "40"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"f", ",", "f1", ",", "\"\<F\[UDoubleDot]ggv\[EAcute]ny:\>\""}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"f1", "\[Rule]", "\"\<y\>\""}], ",", 
       RowBox[{"f2", "\[Rule]", "\"\<-y\>\""}], ",", 
       RowBox[{
       "f3", "\[Rule]", "\"\<-x \!\(\*SuperscriptBox[\(y\), \(2\)]\)\>\""}], 
       ",", 
       RowBox[{
       "f4", "\[Rule]", "\"\<\!\(\*SuperscriptBox[\(x\), \(2\)]\)-y\>\""}], 
       ",", 
       RowBox[{"f5", "\[Rule]", "\"\<cos(x) y\>\""}], ",", 
       RowBox[{
       "f6", "\[Rule]", 
        "\"\<\!\(\*SuperscriptBox[\(y\), \
\(2\)]\)(x-\!\(\*SuperscriptBox[\(x\), \(3\)]\))\>\""}], ",", 
       RowBox[{"f7", "\[Rule]", "\"\<-20y+20x+21\>\""}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "PopupMenu"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "0"}], "}"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ",", 
     RowBox[{"1", "/", "2"}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}], ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "2"}], "}"}], ",", "1", ",", "3", ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}], ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "1", ",", "\"\<y0\>\""}], "}"}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"3", "/", "2"}], ",", 
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}], ",", 
     RowBox[{"Exclusions", "\[Rule]", "0"}], ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "nn", ",", "3", ",", "\"\<l\[EAcute]p\[EAcute]sek sz\[AAcute]ma\>\""}], 
      "}"}], ",", "1", ",", "50", ",", "1", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}], ",", 
     RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"method", ",", "eulerex", ",", "\"\<M\[OAcute]dszer:\>\""}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
       "eulerex", "\[Rule]", "\"\<explicit Euler m\[OAcute]dszer\>\""}], ",", 
       RowBox[{
       "eulerimp", "\[Rule]", "\"\<implicit Euler m\[OAcute]dszer\>\""}]}], 
      "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"TrackedSymbols", "\[Rule]", "Manipulate"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6711982029383197`*^9, 3.6711982087521987`*^9}, 
   3.671433125824112*^9, {3.6714331707964725`*^9, 3.6714331717368455`*^9}, {
   3.67143320894907*^9, 3.671433351863968*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1, $CellContext`b$$ = 
    2, $CellContext`c$$ = 
    3, $CellContext`f$$ = $CellContext`f1, $CellContext`method$$ = \
$CellContext`eulerex, $CellContext`nn$$ = 3, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`f$$], $CellContext`f1, 
       "F\[UDoubleDot]ggv\[EAcute]ny:"}, {$CellContext`f1 -> 
       "y", $CellContext`f2 -> "-y", $CellContext`f3 -> 
       "-x \!\(\*SuperscriptBox[\(y\), \(2\)]\)", $CellContext`f4 -> 
       "\!\(\*SuperscriptBox[\(x\), \(2\)]\)-y", $CellContext`f5 -> 
       "cos(x) y", $CellContext`f6 -> 
       "\!\(\*SuperscriptBox[\(y\), \(2\)]\)(x-\!\(\*SuperscriptBox[\(x\), \
\(3\)]\))", $CellContext`f7 -> "-20y+20x+21"}}, {{
       Hold[$CellContext`a$$], 0}, 
      Rational[-1, 2], 
      Rational[1, 2], 
      Rational[1, 4]}, {{
       Hold[$CellContext`b$$], 2}, 1, 3, 
      Rational[1, 4]}, {{
       Hold[$CellContext`c$$], 1, "y0"}, 
      Rational[1, 4], 
      Rational[3, 2], 
      Rational[1, 4]}, {{
       Hold[$CellContext`nn$$], 3, "l\[EAcute]p\[EAcute]sek sz\[AAcute]ma"}, 
      1, 50, 1}, {{
       Hold[$CellContext`method$$], $CellContext`eulerex, 
       "M\[OAcute]dszer:"}, {$CellContext`eulerex -> 
       "explicit Euler m\[OAcute]dszer", $CellContext`eulerimp -> 
       "implicit Euler m\[OAcute]dszer"}}}, Typeset`size$$ = {
    480., {236., 244.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`f$6041$$ = 
    False, $CellContext`a$6042$$ = 0, $CellContext`b$6043$$ = 
    0, $CellContext`c$6044$$ = 0, $CellContext`nn$6045$$ = 
    0, $CellContext`method$6046$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 0, $CellContext`b$$ = 
        2, $CellContext`c$$ = 
        1, $CellContext`f$$ = $CellContext`f1, $CellContext`method$$ = \
$CellContext`eulerex, $CellContext`nn$$ = 3}, "ControllerVariables" :> {
        Hold[$CellContext`f$$, $CellContext`f$6041$$, False], 
        Hold[$CellContext`a$$, $CellContext`a$6042$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$6043$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$6044$$, 0], 
        Hold[$CellContext`nn$$, $CellContext`nn$6045$$, 0], 
        Hold[$CellContext`method$$, $CellContext`method$6046$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[{
         Plot[
          Evaluate[
           ReplaceAll[
            $CellContext`y[$CellContext`t], 
            $CellContext`exsol[$CellContext`a$$, $CellContext`f$$, \
$CellContext`c$$, $CellContext`t]]], {$CellContext`t, $CellContext`a$$, \
$CellContext`b$$ + 0.1}, PlotStyle -> Thickness[0.005], 
          Evaluate[$CellContext`plotoptions], AxesOrigin -> {0, 0}, PlotRange -> 
          All, PlotLabel -> 
          Row[{"l\[EAcute]p\[EAcute]sek nagys\[AAcute]ga= ", \
($CellContext`b$$ - $CellContext`a$$)/$CellContext`nn$$}]], 
         ListPlot[
          Tooltip[
           Check[
            $CellContext`method$$[{$CellContext`a$$, $CellContext`b$$}, \
$CellContext`f$$, $CellContext`c$$, 
             If[
              
              MemberQ[{$CellContext`f3, $CellContext`f5, $CellContext`f6}, \
$CellContext`f$$], 
              N[$CellContext`nn$$], $CellContext`nn$$]], {$CellContext`a$$}]],
           PlotStyle -> {
            ColorData[1, 2], 
            PointSize[0.02]}], 
         ListLinePlot[
          Check[
           $CellContext`method$$[{$CellContext`a$$, $CellContext`b$$}, \
$CellContext`f$$, $CellContext`c$$, 
            If[
             
             MemberQ[{$CellContext`f3, $CellContext`f5, $CellContext`f6}, \
$CellContext`f$$], 
             
             N[$CellContext`nn$$], $CellContext`nn$$]], {$CellContext`a$$, \
$CellContext`c$$}], PlotStyle -> {
            ColorData[1, 2]}, PlotRange -> All]}, ImageSize -> {400, 400}, 
        ImagePadding -> {{10, 10}, {10, 40}}], 
      "Specifications" :> {{{$CellContext`f$$, $CellContext`f1, 
          "F\[UDoubleDot]ggv\[EAcute]ny:"}, {$CellContext`f1 -> 
          "y", $CellContext`f2 -> "-y", $CellContext`f3 -> 
          "-x \!\(\*SuperscriptBox[\(y\), \(2\)]\)", $CellContext`f4 -> 
          "\!\(\*SuperscriptBox[\(x\), \(2\)]\)-y", $CellContext`f5 -> 
          "cos(x) y", $CellContext`f6 -> 
          "\!\(\*SuperscriptBox[\(y\), \(2\)]\)(x-\!\(\*SuperscriptBox[\(x\), \
\(3\)]\))", $CellContext`f7 -> "-20y+20x+21"}, ControlType -> 
         PopupMenu}, {{$CellContext`a$$, 0}, 
         Rational[-1, 2], 
         Rational[1, 2], 
         Rational[1, 4], Appearance -> "Labeled", ControlPlacement -> Left, 
         ImageSize -> Tiny}, {{$CellContext`b$$, 2}, 1, 3, 
         Rational[1, 4], Appearance -> "Labeled", ControlPlacement -> Left, 
         ImageSize -> Tiny}, {{$CellContext`c$$, 1, "y0"}, 
         Rational[1, 4], 
         Rational[3, 2], 
         Rational[1, 4], Appearance -> "Labeled", Exclusions -> 0, 
         ControlPlacement -> Left, ImageSize -> 
         Tiny}, {{$CellContext`nn$$, 3, 
          "l\[EAcute]p\[EAcute]sek sz\[AAcute]ma"}, 1, 50, 1, Appearance -> 
         "Labeled", ControlPlacement -> Left, ImageSize -> 
         Tiny}, {{$CellContext`method$$, $CellContext`eulerex, 
          "M\[OAcute]dszer:"}, {$CellContext`eulerex -> 
          "explicit Euler m\[OAcute]dszer", $CellContext`eulerimp -> 
          "implicit Euler m\[OAcute]dszer"}}}, 
      "Options" :> {TrackedSymbols -> Manipulate}, "DefaultOptions" :> {}],
     ImageSizeCache->{794., {308., 315.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`exsol[
         Pattern[$CellContext`a, 
          Blank[]], 
         Pattern[$CellContext`f, 
          Blank[]], 
         Pattern[$CellContext`y0, 
          Blank[]], 
         Pattern[$CellContext`t, 
          Blank[]]] := 
       DSolve[{Derivative[
           1][$CellContext`y][$CellContext`t] == \
$CellContext`f[$CellContext`t, 
            $CellContext`y[$CellContext`t]], $CellContext`y[$CellContext`a] == \
$CellContext`y0}, $CellContext`y, $CellContext`t], $CellContext`a$$ = 
       1, $CellContext`f$$[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`x, 
          Blank[]]] = 3 (1 + $CellContext`x), 
       Attributes[Derivative] = {NHoldAll, ReadProtected}, $CellContext`c$$ = 
       3, $CellContext`b$$ = 
       2, $CellContext`plotoptions = {
        PlotRangePadding -> 0.25, ImageSize -> 400}, $CellContext`f3[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := (-$CellContext`x) $CellContext`y^2, $CellContext`f5[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := Cos[$CellContext`x] $CellContext`y, $CellContext`f6[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          
          Blank[]]] := $CellContext`y^2 ($CellContext`x - $CellContext`x^3), \
$CellContext`f1[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := $CellContext`y, $CellContext`f2[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := -$CellContext`y, $CellContext`f4[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := $CellContext`x^2 - $CellContext`y, $CellContext`f7[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := (-20) $CellContext`y + 20 $CellContext`x + 
        21, $CellContext`eulerex[{
          Pattern[$CellContext`a, 
           Blank[]], 
          Pattern[$CellContext`b, 
           Blank[]]}, 
         Pattern[$CellContext`f, 
          Blank[]], 
         Pattern[$CellContext`y0, 
          Blank[]], 
         Pattern[$CellContext`n, 
          Blank[]]] := 
       Module[{$CellContext`h, $CellContext`x, $CellContext`y, \
$CellContext`lsg}, $CellContext`h = ($CellContext`b - \
$CellContext`a)/$CellContext`n; $CellContext`x = 
          Table[$CellContext`a + ($CellContext`i - 
              1) $CellContext`h, {$CellContext`i, 1, $CellContext`n + 
             1}]; $CellContext`y = Table[0, {$CellContext`n + 1}]; 
         Part[$CellContext`y, 1] = $CellContext`y0; 
         Do[Part[$CellContext`y, $CellContext`i] = 
           Part[$CellContext`y, $CellContext`i - 
              1] + $CellContext`h $CellContext`f[
               Part[$CellContext`x, $CellContext`i - 1], 
               Part[$CellContext`y, $CellContext`i - 1]], {$CellContext`i, 
            2, $CellContext`n + 
            1}]; $CellContext`lsg = $CellContext`combList[$CellContext`x, \
$CellContext`y]], $CellContext`h = 0.09000000000000001, $CellContext`combList[
         Pattern[$CellContext`x, 
          Blank[List]], 
         Pattern[$CellContext`y, 
          Blank[List]]] := 
       MapThread[$CellContext`combPair, {$CellContext`x, $CellContext`y}], \
$CellContext`combPair[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          
          Blank[]]] := {$CellContext`x, $CellContext`y}, \
$CellContext`eulerimp[{
          Pattern[$CellContext`a, 
           Blank[]], 
          Pattern[$CellContext`b, 
           Blank[]]}, 
         Pattern[$CellContext`f, 
          Blank[]], 
         Pattern[$CellContext`y0, 
          Blank[]], 
         Pattern[$CellContext`n, 
          Blank[]]] := 
       Module[{$CellContext`h, $CellContext`x, $CellContext`y, \
$CellContext`lsg, $CellContext`sol}, $CellContext`h = ($CellContext`b - \
$CellContext`a)/$CellContext`n; $CellContext`x = 
          Table[$CellContext`a + ($CellContext`i - 
              1) $CellContext`h, {$CellContext`i, 1, $CellContext`n + 
             1}]; $CellContext`y = 
          Table[0, {$CellContext`i, 1, $CellContext`n + 1}]; 
         Part[$CellContext`y, 1] = $CellContext`y0; 
         Do[$CellContext`lsg = 
            Solve[$CellContext`sol == 
              Part[$CellContext`y, $CellContext`i - 
                 1] + $CellContext`h $CellContext`f[
                  
                  Part[$CellContext`x, $CellContext`i], $CellContext`sol], \
$CellContext`sol]; 
           Part[$CellContext`y, $CellContext`i] = If[$CellContext`lsg === {}, 
              Part[$CellContext`y, $CellContext`i - 1], 
              ReplaceAll[$CellContext`sol, 
               Part[$CellContext`lsg, 1]]], {$CellContext`i, 
            2, $CellContext`n + 
            1}]; $CellContext`lsg = $CellContext`combList[$CellContext`x, \
$CellContext`y]]}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.6714332509634047`*^9, 3.6714333530597696`*^9}, 
   3.671526918750885*^9, 3.671526962099874*^9, 3.67152740557436*^9, 
   3.671543021399577*^9, 3.6715441079941006`*^9, 3.6715445305354443`*^9, 
   3.6715960948948183`*^9, 3.671611903896082*^9, 3.671613423267204*^9, {
   3.671686553213586*^9, 3.6716865641078677`*^9}, 3.6716866242659216`*^9, 
   3.6716920519201355`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Forr\[AAcute]sok", "Subsection",
 CellChangeTimes->{{3.6711960764400225`*^9, 3.6711960777669086`*^9}},
 FontFamily->"Gill Sans MT",
 FontColor->RGBColor[1., 0.5019607843137255, 0.]],

Cell[CellGroupData[{

Cell["\<\
Hatvani L\[AAcute]szl\[OAcute] - Pint\[EAcute]r Lajos : \
Differenci\[AAcute]legyenletes modellek a k\[ODoubleDot]z\[EAcute]piskol\
\[AAcute]ban (Polygon jegyzett\[AAcute]r, Szeged, 1997)\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.6711994702789955`*^9}, {
  3.6711997568283186`*^9, 3.671199795319029*^9}, {3.671199834429474*^9, 
  3.6711998814295597`*^9}, {3.671199989912546*^9, 3.6711999899155416`*^9}}],

Cell["\<\
Terj\[EAcute]ki J\[OAcute]zsef : Differenci\[AAcute]legyenletek (Polygon \
jegyzett\[AAcute]r, Szeged, 1997)\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.6711994702789955`*^9}, {
  3.6711997568283186`*^9, 3.671199795319029*^9}, {3.671199834429474*^9, 
  3.6711998814295597`*^9}, {3.671199989912546*^9, 3.67119999141054*^9}, {
  3.671200094866849*^9, 3.6712000948688517`*^9}}],

Cell["\<\
M\[OAcute]ricz Ferenc: Differenci\[AAcute]legyenletek numerikus \
m\[OAcute]dszerei (Polygon jegyzett\[AAcute]r, Szeged, 1998)\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.6711994702789955`*^9}, {
  3.6711997568283186`*^9, 3.671199795319029*^9}, {3.671199834429474*^9, 
  3.6711998814295597`*^9}, {3.671199989912546*^9, 3.67119999141054*^9}, {
  3.671200094866849*^9, 3.671200095657384*^9}}],

Cell["\<\
Hatvani L\[AAcute]szl\[OAcute] - Krisztin Tibor - Makay G\[EAcute]za : \
Dinamikus modellek a k\[ODoubleDot]zgazdas\[AAcute]gban (Polygon jegyzett\
\[AAcute]r, Szeged, 2001)\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.6711994702789955`*^9}, {
  3.6711997568283186`*^9, 3.67119988710235*^9}, {3.6712000477787404`*^9, 
  3.671200047780741*^9}}],

Cell["\<\
http://www.inf.u-szeged.hu/~banhelyi/okt/SzgDinMod_2015osz/5het.pdf\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.6711994702789955`*^9}, {
  3.6711997568283186`*^9, 3.6711997582392635`*^9}}],

Cell["\<\
http://math.uni-pannon.hu/~hartung/okt/nkmlmam444d/jegyzet4.pdf\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.671199470277994*^9}, {
  3.6711995526314764`*^9, 3.671199553269903*^9}}],

Cell["\<\
http://docplayer.hu/9663329-3-elsorendu-differencialegyenletek.html\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.671199470277994*^9}, {
  3.6711995526314764`*^9, 3.6711995719890933`*^9}}],

Cell["\<\
http://optics.szfki.kfki.hu/~bkollar/teaching/matmodsz2012/numerikus.pdf\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.671199470277994*^9}, {
  3.6711995526314764`*^9, 3.671199571986091*^9}, {3.671199609406649*^9, 
  3.671199609997035*^9}}],

Cell["\<\
http://moodle.autolab.uni-pannon.hu/Mecha_tananyag/mechatronikai_modellezes_\
magyar/ch07.html#d0e11778\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.671199470277994*^9}, {
  3.6711995526314764`*^9, 3.671199571986091*^9}, {3.671199609406649*^9, 
  3.6711996099850516`*^9}, {3.6711996567577763`*^9, 3.671199657484258*^9}}],

Cell["\<\
https://www.cs.elte.hu/blobs/diplomamunkak/bsc_alkmat/2010/molnar_viktoria.pdf\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.671199470277994*^9}, {
   3.6711995526314764`*^9, 3.671199571986091*^9}, {3.671199609406649*^9, 
   3.6711996099850516`*^9}, {3.6711996567577763`*^9, 3.6711996574722576`*^9}, 
   3.6711997520301113`*^9, {3.6712004244945793`*^9, 3.6712004244975653`*^9}}],

Cell["\<\
https://www.cs.elte.hu/blobs/diplomamunkak/bsc_matelem/2010/meszaros_mirjana.\
pdf\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.671199470277994*^9}, {
   3.6711995526314764`*^9, 3.671199571986091*^9}, {3.671199609406649*^9, 
   3.6711996099850516`*^9}, {3.6711996567577763`*^9, 3.6711996574722576`*^9}, 
   3.6711997520301113`*^9, {3.6712004244945793`*^9, 3.6712004250769587`*^9}, {
   3.6715313530561447`*^9, 3.671531353067153*^9}}],

Cell["\<\
http://demonstrations.wolfram.com/NumericalMethodsForDifferentialEquations/\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.671199470277994*^9}, {
   3.6711995526314764`*^9, 3.671199571986091*^9}, {3.671199609406649*^9, 
   3.6711996099850516`*^9}, {3.6711996567577763`*^9, 3.6711996574722576`*^9}, 
   3.6711997520301113`*^9, {3.6712004244945793`*^9, 3.6712004250769587`*^9}, {
   3.6715313530561447`*^9, 3.671531378712661*^9}}],

Cell["\<\
http://mathematica.stackexchange.com/questions/11924/ndsolve-with-euler-method\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.671199470277994*^9}, {
   3.6711995526314764`*^9, 3.671199571986091*^9}, {3.671199609406649*^9, 
   3.6711996099850516`*^9}, {3.6711996567577763`*^9, 3.6711996574722576`*^9}, 
   3.6711997520301113`*^9, {3.6712004244945793`*^9, 3.6712004250769587`*^9}, {
   3.6715313530561447`*^9, 3.6715313791479597`*^9}, {3.671531605370581*^9, 
   3.6715316053845873`*^9}}],

Cell["\<\
http://www.inf.elte.hu/karunkrol/digitkonyv/Jegyzetek2010/Numerikus_modszerek_\
peldatar.pdf\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.671199470277994*^9}, {
   3.6711995526314764`*^9, 3.671199571986091*^9}, {3.671199609406649*^9, 
   3.6711996099850516`*^9}, {3.6711996567577763`*^9, 3.6711996574722576`*^9}, 
   3.6711997520301113`*^9, {3.6712004244945793`*^9, 3.6712004250769587`*^9}, {
   3.6715313530561447`*^9, 3.6715313791479597`*^9}, {3.671531605370581*^9, 
   3.6715316058959284`*^9}, {3.671692838075264*^9, 3.671692838077265*^9}}],

Cell["\<\
https://reference.wolfram.com/language/tutorial/NDSolveLotkaVolterra.html\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.671199470277994*^9}, {
   3.6711995526314764`*^9, 3.671199571986091*^9}, {3.671199609406649*^9, 
   3.6711996099850516`*^9}, {3.6711996567577763`*^9, 3.6711996574722576`*^9}, 
   3.6711997520301113`*^9, {3.6712004244945793`*^9, 3.6712004250769587`*^9}, {
   3.6715313530561447`*^9, 3.6715313791479597`*^9}, {3.671531605370581*^9, 
   3.6715316058959284`*^9}, {3.671692838075264*^9, 3.6716928514522047`*^9}}],

Cell["\<\
https://reference.wolfram.com/language/tutorial/NDSolveLotkaVolterra.html\
\>", "Item",
 CellChangeTimes->{{3.6711994690511723`*^9, 3.671199470277994*^9}, {
   3.6711995526314764`*^9, 3.671199571986091*^9}, {3.671199609406649*^9, 
   3.6711996099850516`*^9}, {3.6711996567577763`*^9, 3.6711996574722576`*^9}, 
   3.6711997520301113`*^9, {3.6712004244945793`*^9, 3.6712004250769587`*^9}, {
   3.6715313530561447`*^9, 3.6715313791479597`*^9}, {3.671531605370581*^9, 
   3.6715316058959284`*^9}, {3.671692838075264*^9, 3.671692851895501*^9}}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[BoxData[""], "Section",
 CellFrame->{{0, 0}, {0, 0}},
 ShowCellBracket->False,
 CellChangeTimes->{{3.6715280861621113`*^9, 3.6715280899204626`*^9}}]
},
WindowToolbars->"EditBar",
WindowSize->{1202, 669},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.2 Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (July 28, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 375, 10, 101, "Section"],
Cell[CellGroupData[{
Cell[958, 34, 877, 16, 215, "Section"],
Cell[1838, 52, 192, 7, 126, "Text"],
Cell[CellGroupData[{
Cell[2055, 63, 211, 3, 58, "Subsection"],
Cell[2269, 68, 787, 13, 82, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[3093, 86, 257, 4, 47, "Subsection"],
Cell[3353, 92, 641, 13, 84, "Text"],
Cell[3997, 107, 2226, 35, 312, "Text"],
Cell[CellGroupData[{
Cell[6248, 146, 132, 1, 67, "Subsubsection"],
Cell[6383, 149, 574, 12, 84, "Text"],
Cell[6960, 163, 846, 14, 116, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[7843, 182, 125, 1, 55, "Subsubsection"],
Cell[7971, 185, 1290, 23, 184, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[9298, 213, 116, 1, 55, "Subsubsection"],
Cell[9417, 216, 1543, 44, 123, "Text"],
Cell[10963, 262, 1474, 24, 280, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[12474, 291, 121, 1, 55, "Subsubsection"],
Cell[12598, 294, 1098, 17, 147, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[13745, 317, 249, 4, 47, "Subsection"],
Cell[CellGroupData[{
Cell[14019, 325, 108, 1, 67, "Subsubsection"],
Cell[14130, 328, 1359, 28, 428, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[15526, 361, 117, 1, 55, "Subsubsection"],
Cell[15646, 364, 12027, 396, 1177, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[27722, 766, 275, 4, 47, "Subsection"],
Cell[CellGroupData[{
Cell[28022, 774, 146, 1, 47, "Subsubsection"],
Cell[28171, 777, 643, 16, 50, "Text"],
Cell[28817, 795, 2723, 101, 324, "Text"],
Cell[31543, 898, 241, 4, 50, "Text"],
Cell[31787, 904, 2177, 62, 184, "Input"],
Cell[33967, 968, 207, 3, 50, "Text"],
Cell[CellGroupData[{
Cell[34199, 975, 2125, 56, 313, "Input"],
Cell[36327, 1033, 3878, 73, 421, "Output"]
}, {2}]],
Cell[40217, 1109, 140, 1, 50, "Text"],
Cell[CellGroupData[{
Cell[40382, 1114, 2228, 58, 313, "Input"],
Cell[42613, 1174, 3987, 76, 424, "Output"]
}, {2}]],
Cell[46612, 1253, 306, 6, 50, "Text"],
Cell[CellGroupData[{
Cell[46943, 1263, 1242, 34, 123, "Input"],
Cell[48188, 1299, 4213, 80, 421, "Output"]
}, {2}]],
Cell[52413, 1382, 323, 6, 50, "Text"],
Cell[CellGroupData[{
Cell[52761, 1392, 3001, 74, 408, "Input"],
Cell[55765, 1468, 9773, 182, 591, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[65584, 1656, 133, 1, 39, "Subsubsection"],
Cell[65720, 1659, 399, 7, 50, "Text"],
Cell[66122, 1668, 709, 12, 82, "Text"],
Cell[66834, 1682, 2974, 118, 228, "Text"],
Cell[69811, 1802, 215, 6, 82, "Text"],
Cell[70029, 1810, 2485, 72, 184, "Input"],
Cell[CellGroupData[{
Cell[72539, 1886, 2152, 56, 313, "Input"],
Cell[74694, 1944, 3514, 68, 432, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[78254, 2018, 233, 3, 39, "Subsubsection"],
Cell[78490, 2023, 278, 5, 50, "Text"],
Cell[CellGroupData[{
Cell[78793, 2032, 6304, 174, 885, "Input"],
Cell[85100, 2208, 8875, 167, 591, "Output"]
}, {2}]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[94033, 2382, 245, 4, 58, "Subsection"],
Cell[94281, 2388, 4143, 128, 427, "Text"],
Cell[98427, 2518, 774, 18, 181, "Text"],
Cell[99204, 2538, 12177, 425, 1096, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[111418, 2968, 209, 3, 47, "Subsection"],
Cell[111630, 2973, 202, 3, 42, "Text"],
Cell[CellGroupData[{
Cell[111857, 2980, 95, 1, 56, "Subsubsection"],
Cell[111955, 2983, 484, 8, 82, "Text"],
Cell[112442, 2993, 9498, 308, 658, "Text"],
Cell[121943, 3303, 222, 5, 82, "Text"],
Cell[CellGroupData[{
Cell[122190, 3312, 1462, 42, 313, "Input"],
Cell[123655, 3356, 3231, 63, 418, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[126932, 3425, 97, 1, 46, "Subsubsection"],
Cell[127032, 3428, 4457, 139, 868, "Text"],
Cell[131492, 3569, 426, 8, 82, "Text"],
Cell[CellGroupData[{
Cell[131943, 3581, 1609, 45, 313, "Input"],
Cell[133555, 3628, 2064, 46, 418, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[135665, 3680, 95, 1, 46, "Subsubsection"],
Cell[135763, 3683, 5311, 181, 914, "Text"],
Cell[141077, 3866, 196, 5, 82, "Text"],
Cell[CellGroupData[{
Cell[141298, 3875, 1567, 44, 313, "Input"],
Cell[142868, 3921, 4325, 82, 418, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[147239, 4009, 95, 1, 46, "Subsubsection"],
Cell[147337, 4012, 8903, 333, 1068, "Text"],
Cell[156243, 4347, 124, 4, 82, "Text"],
Cell[CellGroupData[{
Cell[156392, 4355, 1813, 50, 313, "Input"],
Cell[158208, 4407, 8935, 156, 418, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[167189, 4569, 92, 1, 46, "Subsubsection"],
Cell[167284, 4572, 9098, 339, 1202, "Text"],
Cell[176385, 4913, 258, 6, 82, "Text"],
Cell[CellGroupData[{
Cell[176668, 4923, 1763, 52, 313, "Input"],
Cell[178434, 4977, 895, 15, 52, "Message"],
Cell[179332, 4994, 5238, 97, 418, "Output"]
}, {3}]]
}, Closed]],
Cell[CellGroupData[{
Cell[184616, 5097, 93, 1, 46, "Subsubsection"],
Cell[184712, 5100, 6787, 262, 1023, "Text"],
Cell[191502, 5364, 128, 4, 82, "Text"],
Cell[CellGroupData[{
Cell[191655, 5372, 1684, 50, 313, "Input"],
Cell[193342, 5424, 17917, 305, 434, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[211305, 5735, 97, 1, 46, "Subsubsection"],
Cell[211405, 5738, 754, 14, 116, "Text"],
Cell[CellGroupData[{
Cell[212184, 5756, 649, 18, 51, "Input"],
Cell[212836, 5776, 535, 15, 75, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[213408, 5796, 387, 8, 51, "Input"],
Cell[213798, 5806, 780, 17, 75, "Output"]
}, Open  ]],
Cell[214593, 5826, 303, 6, 50, "Text"],
Cell[CellGroupData[{
Cell[214921, 5836, 4404, 126, 694, "Input"],
Cell[219328, 5964, 3257, 65, 422, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[222631, 6035, 95, 1, 46, "Subsubsection"],
Cell[222729, 6038, 198, 2, 42, "Text"],
Cell[222930, 6042, 4703, 94, 706, "Text"],
Cell[CellGroupData[{
Cell[227658, 6140, 4632, 118, 1171, "Input"],
Cell[232293, 6260, 38063, 640, 346, "Output"]
}, {2}]],
Cell[270368, 6903, 235, 3, 40, "Item"],
Cell[CellGroupData[{
Cell[270628, 6910, 1743, 52, 169, "Input"],
Cell[272374, 6964, 8195, 148, 354, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[280603, 7117, 3502, 101, 313, "Input"],
Cell[284108, 7220, 61874, 1033, 637, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[346028, 8259, 94, 1, 46, "Subsubsection"],
Cell[346125, 8262, 147, 1, 42, "Text"],
Cell[346275, 8265, 4865, 136, 711, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[351189, 8407, 224, 3, 47, "Subsection"],
Cell[351416, 8412, 1234, 19, 147, "Text"],
Cell[352653, 8433, 214, 5, 50, "Text"],
Cell[352870, 8440, 253, 5, 50, "Text"],
Cell[CellGroupData[{
Cell[353148, 8449, 21032, 535, 3630, "Input",
 InitializationCell->True,
 CellID->44981821],
Cell[374183, 8986, 15948, 350, 922, "Output"]
}, {2}]],
Cell[390143, 9339, 309, 6, 50, "Text"],
Cell[CellGroupData[{
Cell[390477, 9349, 22072, 555, 3295, "Input",
 CellID->288331400],
Cell[412552, 9906, 11336, 228, 1026, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[423934, 10140, 208, 3, 47, "Subsection"],
Cell[424145, 10145, 830, 16, 116, "Text"],
Cell[CellGroupData[{
Cell[425000, 10165, 15206, 440, 3075, "Input"],
Cell[440209, 10607, 11812, 259, 922, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[452067, 10872, 187, 3, 47, "Subsection"],
Cell[CellGroupData[{
Cell[452279, 10879, 431, 7, 48, "Item"],
Cell[452713, 10888, 400, 7, 48, "Item"],
Cell[453116, 10897, 416, 7, 48, "Item"],
Cell[453535, 10906, 368, 7, 48, "Item"],
Cell[453906, 10915, 214, 4, 48, "Item"],
Cell[454123, 10921, 206, 4, 48, "Item"],
Cell[454332, 10927, 212, 4, 48, "Item"],
Cell[454547, 10933, 264, 5, 48, "Item"],
Cell[454814, 10940, 345, 6, 48, "Item"],
Cell[455162, 10948, 402, 6, 48, "Item"],
Cell[455567, 10956, 458, 8, 48, "Item"],
Cell[456028, 10966, 451, 7, 48, "Item"],
Cell[456482, 10975, 508, 8, 48, "Item"],
Cell[456993, 10985, 568, 9, 48, "Item"],
Cell[457564, 10996, 551, 8, 48, "Item"],
Cell[458118, 11006, 549, 8, 48, "Item"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[458706, 11019, 153, 3, 71, "Section"]
}
]
*)

